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ERROR NUMBER 


000 
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003 
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ROUTINESERROR MESSAGE 
BLOCKS DECLARATION NOT FOLLOWED BY SEMICOLON. 
BLOCKS IDENTIFIER DECLARED TWICE IN SAME BLOCK, 
PROCEQUREDECs SPECIFICATION PART CONTAINS 
IDENTIFIER NOT APPEARING IN 
FORMAL PARAMETER PART, 


BLOCK’ NON#IDENTIF JER APPEARS IN [OENTIFIER 
LIST OF DECLARATION, 

PROCEQDUREDEC’ STREAM PROCEDURE DECLARATION 
PRECEDED BY ILLEGAL DECLARATORe 

PRQCEDUREDECS PROCEDURE DECLARATION PRECEDED 
BY JLLEGAL DECLARATOR, 

PROCEDUREDEC’ PROCEDURE IDENTIFIER USED BEFORE 
IN SAME BLOCKCNOT FORWARD) « 

PROCEDUREDECS PROCEDURE IDENTIFIER NOT FOLLOWED 
BY ¢€ OR SEMICOLON IN PROCEDURE 
DECLARATION, 

PROCEQYREDEC’S FORMAL PARAMETER LIST NOT FOLLOWED 
BY deo 

PROCEDUREDEC? FORMAL PARAMETER PART NOT FOLLOWED 
BY SEMICOLONe 

PROCEUUREDECS VALUE PART CONTAINS IDENTIFIER 


WHICH DIO NOT APPEAR IN FORMAL 
PARAPART, 
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00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001072 
00001073 
00001074 
00001075 
00001076 
0e@001077 
00001078 
Q000 1079 
00001080 
00001081 
00001082 
00001110 
00001120 
00001130 
00001140 
00002000 
08003000 
08004000 
00005000 
00006000 
00007000 
08008000 
00009000 
06010000 
00011000 
0@012000 
00013000 
00014000 
08015000 
00016000 
00017000 
00018000 
00019000 
00020000 
08021000 
00022000 
00023000 
08024000 
00025000 
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O14 
012 


013 
014 
O15 
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030 
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036 
037 
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050 
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053 
054 
056 
057 
098 
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PROCEDUREDEC!S VALUE PART NOT ENDED BY SEMICOLON, 

PROCEQUUREDEC! MISSING OR ILLEGAL SPECIFICATION 
PART» 

PROCEOUREDEC’S OWN USED IN ARRAY SPECIFICATIONe 

PROCEQUREDEC?# SAVE USED IN ARRAY SPECIFICATIONe 


BLOCKS DECLARATION PRECEDED BY ILLEGAL DECLARATOR, 

ARRAYDEC? ARRAY ID IN DECLARATION NUT FOLLOWED 
BY € . 

ARRAYDEC!S LOWER BOUND IN ARRAY DEC NUT 
FOLLOWED BY ' , 

ARRAYUEC! BOUND PAIR LIST NOT FOLLOWED BY J, 

ARRAYSPEC! ILLEGAL LOWER BOUND DESIGNATOR IN 
ARRAY SPECIFICATION, 

BLOCK! QWN APPEARS IMMEDIATELY BEFORE 
IODENTIFIERCNO TYPE), 

BLOCK’ SAVE APPEARS IMMEDIATELY BEFORE 
IDENTIFIERCNO TYPE), 

BLOCK? STREAM APPEARS IMMEDIATELY BEFORE 
IDENTIFIERC(CTHE WORD PROCEDURE LEFT 
OUT D« 

BLOCKS DECLARATOR PRECEDED ILLEGALLY BY 


ANOTHER DECLARATOR, : 
PROCEQUREDEC’: LABEL CANNOT BE PASSED TO FUNCTION, 


BLOCKS DECLARATOR OR SPECIFIER ILLEGALLY 
PRECEDED BY OWN OR SAVE QR SOME 
OTHER DECLARATOR, 

FILEDEC? MISSING ¢ IN FILE DECe 

FILEDECS NOe OF BUFFERS IN FILE DEC MUST BE 
AN UNSIGNED INTEGER, 

FILEDECE ILLEGAL BUFFER PART OR SAVE FACTOR 
In FILE OEC, 

FILEDECS MISSING ) IN FILE DEC, 


PROCEVUREDEC# PROCEDURE TYPE AT ACTUAL DECLARATION 
TIME DIFFERENT THAN AT FORWARD DEC, 


LISTOECS MISSING ¢ IN LISTDECe 
FORMATDECS MISSING € IN FORMAT DEC. 
SWITCHDECS SWITCH DEC DOES NOT HAVE © UR 


FORWARD AFTER IDENTIFIER. 
SWITCHFILEDECEMISSING © AFTER FILED. 
SWITCHFILEDECSNON FILE ID APPEARING IN DECLARATION 

OF SWITCHFILE. 
SUPERFORMATOECSFORMAT ID NOT FOLLOWED BY « ’ 
SUPERFORMATDECIMISSING ¢€ AT START OF FURMATPHRASE , 
SUPERFORMATDECSFORMAT SEGMENT >1022 WORDS, 
SEGMENT? SAVE CODE EXCEEDS 4080 WHICH KERNAL CAN H/L 

ANYWHERE? QUT OF RANGE OF C RELATIVE ADDRESSING FOR CONSTANT 


BLOCK t ILLEGAL F RELATIVE ADDRESS EXP IN DECLARATION 
BLOCKS PROCEDURE WHOSE BODY NOT A BLOCK 
ARRAYDECS CANT FIND RIGHT BRACKET IN SAVE ARRAY DEC 


ARRAYDECS PILL PART OF SAVE ARRAY DEC LONGER THAN SIZE 
ARRAYDEC® ILLEGAL DIMENSION INDICATOR IN ARRAY DEC 
SEGMENTSTARTISAVE STORAGE NOT ALLOWED WITH INTRINSIC OPTION 


IOSTMT$ ILLEGAL SPECIFIER IN SCOPE STMT? MUST BE 215, 
INLINE# EXTRA & IN STREAM HEAD, 

ANYWHERES UNDECLARED IDENTIFIER, 

CHECKER! AN ATTEMPT HAS BEEN MADE TO ADDRESS AN 


IDENTIFIER WHICH IS LOCAL TO ONE PRUCEDURE AND GLOBAL 


00026000 
08027000 
00028000 
08029000 
09030000 
00031000 
09032000 
00033000 
08034000 
09035000 
00036000 
08037000 
08038000 
00039000 
08040000 
00041000 
00042000 
06043000 
00044000 
00045000 
08046000 
00047000 
00048000 
00049000 
06050000 
00051000 
00052000 
00053000 
00054000 
00055000 
08056000 
900057000 
08058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069000 
00069100 
080069500 
00069510 
00069520 
00069530 
00069540 
00069560 
00069570 
00069980 
00069990 
09070000 
00071000 
00072000 
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TO ANOTHER, IF THE QUANTITY IS A PROCEDURE NAME OR 
AN OWN VARIABLE THIS RESTRICTION IS RELAXED, 

AEXP$ CONDITIONAL EXPRESSION IS NOT OF ARITHMETIC TYPEH 

PRIMARY! PRIMARY MAY NOT BEGIN WITH A QUANTITY OF THIS 
TYPE. 

ANYWHERE# MISSING RIGHT PARENTHESI Se 

ANYWHERES MISSING LEFT PARENTHESIS. 

PRIMARY$ PRIMARY MAY NOT START WITH DECLARATOR,e 

BEXPt! THE EXPRESSION IS NOT OF BOOLEAN TYPEs 

EXPRSSt A RELATIGN MAY NOT HAVE CONDITIONAL EXPRESSIONS 
AS THE ARITHMETIC EXPRESSIUNS, 

BOOSEC»SIMPB00» AND BOOCOMP? THE PRIMARY IS NOT BOOLEAN, 

BOUCOMP: A NON@BOOLEAN OPERATOR OCCURS IN A BOOLEAN 
EXPRESSION. 
BOOPRIM! NO EXPRESSION CARITHMETICs BOOLEANs OR DESIGNA® 
TIONAL) MAY BEGIN WITH A QUANTITY OF THIS TYPE, 
BOOPRIM&S NO EXPRESSION CARITHMETICs BOULEANe OR DESIGNA®@ 
TIONAL) MAY BEGIN WITH A DECLARATORs« 

PARSE? EITHER THE SYTAX OR THE RANGE QF THE LITERALS FoR 
A CONCATENATE OPERATOR IS INCORRECT. 

DOTSYNTAX$ EITHER THE SYNTAX OR THE RANGE OF THE LITERALS 
FOR A PARTIAL WORD OESIGNATOR IS INCORRECT, 

DEXP$ THE EXPRESSION IS NOT OF DESIGNATIONAL TYPE, 

IFCLAVSE! MISSING THEN, 

BANA’ MISSING LEFT BRAKET>» 

BANA MISSING RIGHT BRAKETe 

COMPOUNDTAIL&§ MISSING SEMICOLON OR ENDe 

COMPOUNDTAIL! MISSING ENDe 

ACTUALPARAPART: AN IJNOEXED FILE MAY BE FASSED BY NAME 
ONLY AND ONLY TO A STREAM PROCEDURE * THE STREAM 
PROCEDURE MAY NOT DO A RELEASE ON THIS TYPE PARA# 
METER, 

ACTUALPARAPART® STREAM PROCEDURE MAY NOT HAVE AN 
EXPRESSION PASSED TO IT BY NAME, 

ACTUALPARAPARTS THE aCTUAL ANDO FORMAL PARAMETERS DO NOT 
AGREE AS TO TYPE, 

ACTUALPARAPART#§ ACTUAL ANDO FORMAL ARRAYS OO NOT HAVE SAME 
NUMBER OF DIMENSIONS, 

ACTUALPARAPART$ STREAM PROCEDURES MAY NUT BE PASSED AS A 
PARAMETER TO A PROCEDURE, 

ACTUALPARAPART$ NO ACTUAL PARAMETER MAY BEGIN WITH A 
QUANTITY OF THIS TYPE, 

ACTUALPARAPARTS THIS TYPE QUANTITY MAY NOT BE PASSED TO A 
STREAM PROCEDURE, 

ACTUALPARAPART! EITHER ACTUAL AND FORMAL PARAMETERS DO 
NOT AGREE aS TO NUMBER» OR EXTRA RIGHT PARENTHESIS, 

ACTUALPARAPARTS JULLEGAL PARAMETER DELIMITER: 

RELSESTMT® NO FILE NAME, 

DOSTMT! MISSING UNTI Qe 

WHILESTMT? MISSING DO, 

LABELR$ MISSING C OLON, 

LABELRS$ THE LABEL WAS NOT DECLARED IN THIS BLOCK, 

LASELR$ THE LABEL HAS ALREADY OCCURED. 

FORMATPHRASE!? IMPROPER FORMAT EDITING PHRASEe 

FORMATPHRASE!S A FORMAT EDITING PHRASE DOES NUT HAVE AN 
INTEGER WHERE AN INTEGER IS REQUIRED, 

FORMATPHRASES THE WIOTH IS TOO SMALL IN & OR F EDITING 


09073000 
00074000 
08075000 
0076000 
00077000 
00078000 
00079000 
00080000 
08081000 
00082000 
00083000 
00084000 
08085000 
00086000 
00087000 
00088000 
00089000 
08090000 
00091000 
00092000 
08093000 
00094000 
08095000 
08096000 
00097000 
00098000 
90099000 
00100000 
90101000 
00102000 
06103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
00110000 
00111000 
00112000 
0@113000 
00114000 
00115000 
06116000 
00117000 
00118000 
00119000 
00120000 
00121000 
08122000 
08123000 
08124000 
06125000 
09126000 
00127000 
00128000 
08129000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


139 
140 
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157 
168 
159 
160 
161 
163 
163 
200 
201 
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208 
209 


210 
211 
250 
251 
252 
293 
254 
255 


PHRASE, 
TABLES DEFINE JS NESTED MORE THAN EIGHT DEEP. 
NEXTENTS AN INTEGER IN. A FORMAT IS GREATER THAN 1023, 
SCANNERS INTEGER OR IDENTIFIER HAS MORE THAN 63 
CHARACTORS, 
DEFINEGENS A DEFINE CONTAINS MORE THAN 2047 CHARACTORS 
(BLANK SUPPRESSED). 
COMPOUNDTAIL! EXTRA END, 
STMT? NO STATEMENT MAY START WITH THIS TYPE IDENTIFIER, 
STMT#! NO STATEMENT MAY START WITH THIS TYPE QUANTITY. 
STMT8 NO STATEMENT MAY START WITH A DECLARATOR = MAY BE 
A MISSING ENO OF A PROCEDURE OR A MISPLACED 
DECLARATION, 
SWITCHGENS MORE THAN 256 EXPRESSIONS IN A SWITCH 
DECLARATION. 
GETSPACES MORE THAN 1023 PROGRAM REFERENCE TABLE CELLS 
ARE REQUIRED FOR THIS PROGRAM, 
GETSPACE! MORE THAN 255 STACK CELLS ARE REQUIRED FOR THIS 
PROCEQURE, 
ACTUALPARAPART!? CONSTANTS MAY NOT BE PASSED BY NAME TO 
STREAM PROCEDURES, 
FORSTMT$ IMPROPER FOR INDEX VARIABLE, 
FORSTMT¢ MISSING LEFT ARROW FOLLOWING INDEX VARIABLE, 
FORSTMT MISSING UNTIL OR WHILE IN STEP ELEMENT, 
FORSTMT& MISSING OO IN FOR CLAUSE, 
IFEXPS MISSING ELSE 
LISTELEMENT®’ A DESIGNATIONAL EXPRESSION MAY NOT BE A LIST 
ELEMENT, 
LISTELEMENT$ A ROW DESIGNATOR MAY NOT BE A LISTELEMENT 
LISTELEMENTS MISSING RIGHT BRAKET IN GROUP OF ELEMENTS 
PROCSTMT# ILLEGAL WYSE OF PROCEDURE OR FUNCTION IDENTIFIER 
PURGES DECLARED LABEL OOES NOT OCCUR, 
PURGEt DECLARED FORWARD PROCEDURE DOES NOT OCCUR. 
ZIPSTMT&8 MISSING COMMA IN ZIP STATEMENT 
FORMATPHRASE? THE WIDTH OF A FIELD IS MURE THAN 63, 
EMITS SEGMENT TQO LARGE € > WO93SYLLABLES).« 
SIMPLE VARIABLE? PARTIAL WORD DESIGNATOR NOT LEFT*MOUST 
IN A LEFT PART LIST. 
SIMPLE VARIABLE? MISSING , OR ©& , 
SUBSCRIPTED VARIABLE? WRONG NUMBER OF SUBSCRIPTS IN A ROW 
DESIGNATOR. 
SUBSCRIPTED VARIABLES MISSING ) IN A ROW DESIGNATOR, 
SUBSCRIPTED VARIABLES A ROW DESIGNATOR APPEARS QUTSIOE OF 
AN ACTUAL PARAMETER LIST OR FILL STATEMENT, 
SUBSCRIPTED VARTABLEt MISSING J, 
SUBSCRIPTED VARIABLES MISSING Ce 
SUBSCRIPTED VARIABLE’ WRONG NUMBER OF SUBSCRIPTS, 
SUBSCRIPTED VARIABLE’ PARTIAL WURD DESIGNATOR NOT LEFT 
MOST IN A LEFT PART LIST, 
SUBSCRIPTEO VARIABLE MISSING » OR ¢ , 
VARTABLE! PROCEDURE IO USED OUTSIDE OF SCOPE IN LEFT PART. 
STREAM STMTSILLEGAL STREAM STATEMENT, 
ANY STREAM STMT PROCEDURES MISSING «, 
INDEX$ MISSING + OR & 
INDEX? MISSING NUMBER OR STREAM VARIABLE, 
EMITC’ NUMBER>63 OR NUMBER OF LABELS*#LOCALS+FORMALS>63, 
DSS MISSING STRING IN DSe LIT STATEMENT. 


00130000 
00131000 
00132000 
00133000 
06134000 
00135000 
00136000 
00137000 
00138000 
08139000 
00140000 
00141000 
00142000 
00143000 
00144000 
08145000 
00146000 
00147000 
00148000 
0149000 
0@150000 
00151000 
00152000 
06153000 
08154000 
08155000 
00156000 
00157000 
00158000 
00159000 
00160000 
00161000 
00162000 
00163000 
00164000 
08165000 
00166000 
00167000 
08168000 
00169000 
00170000 
0171000 
00172000 
00173000 
00174000 
08175000 
00176000 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
08183000 
00184000 
00185000 
0@186000 
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257 


256 
259 
260 
263 
262 
263 
264 
265 
266 
267 


268 
269 


284 
282 
283 
284 
285 
300 


304 
302 
303 
304 
305 
306 
400 
404 
402 
403 


404 


405 
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407 
408 
409 
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412 


413 
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418 


RELEASESt MISSING PARENTHESIS OR FILE IDENTIFIER IS NOT 
A FORMAL PARAMETER, 
GOTOS»LABELS»OR JUMPS! LABEL SPECIFIED IS NOT ON THE SAME 
NEST LEVEL AS A PRECEDING APPEARANCE OF THE 
LABEL. 
LABELS# MISSING ¢, 
LABELS! LABEL APPEARS MORE THAN ONCE. 
GOTOS! MISSING LABEL IN A GO TO OR JUMP UUT TO STATEMENT, 
JUMPS! MISSING OUT IN JUMP OUT STATEMENT, 
NESTS$ MISSING PARENTHESIS,» 
IFS#MISSING SC IN IF STATEMENT» 
IFSt MISSING RELATIONAL IN IF STATEMENT 
IFSt MISSING ALPHA*0C OR STRING IN IF STATEMENT, 
IFSt MISSING THEN INIF STATEMENT. 
FREDFIXx’ THERE ARE GO TO STATEMENTS IN WHICH THE LABEL IS 
UNDEFINED, 
EMITC3’ A REPEAT INDEX 2 64 WAS SPECIFIED OR TOO MANY 
FORMAL PARAMETERS»LOCALS AND LABELSe 
TABLES A CONSTANT JS SPECIFIED WHICH IS TOO LARGE 
OR TOQ SMALL. 
DBLSTMT#! MISSING C, 
DBLSTMT&’ TUQ MANY OPERATORS, 
DBLSTMT! TOQ MANY OPERANDS, 
DBLSTMT#§ MISSING » , 
DBLSTMT# MISSING ) , 
FILLSTMT§ THE IDENTIFIER FOLLOWING "FILL" IS NOT 
AN ARRAY IDENTIFIERS 
FILLSTMT# MISSING "WITH" IN FILL STATEMENT, 
FILLSTMT$ IMPROPER FILL ELEMENTe 
FILLSTMT# NON@OCTAL CHARACTER IN OCTAL FJuLe 
FILLSTMT® IMPROPER ARRAY ROW DESIGNATOR IN FIuLe 
FILLSTMT$ DATA IN FILL EXCEEDS 1023 WORDS, 
FILLSTMT# QDO NUMBER OF PARENTHESES IN FILLe 
MERRIMACIMISSING FILE ID IN MONITOR DECe 
MERRIMACSMISSING LEFT PARENTHESIS IN MONITOR DEC. 
MERRIMACSIMPROPER SUBSCRIPT FOR MONITOR LIST ELEMENT. 
MERRIMACS IMPROPER SUBSCRIPT EXPRESSION DELIMITER IN 
MONITOR LIST ELEMENT, 
MERRIMACE# IMPROPER NUMBER OF SUBSCRIPTS IN MONITOR LIST 
ELEMENT, 
MERRIMACIL ABEL OR SWITCH MONITORED AT JMPROPER LAVELs 
MERRIMACHIMPROPER MONITOR LIST ELEMENT, 
MERRIMACEMISSING RIGHT PARENTHESIS IN MUNITOR DECLARATIONs 
MERRIMACEIMPROPER MONITOR DECLARATION DELIMITER: 
OMUPEMISSING FILE IDENTIFIER IN DUMP DECLARATION» 
DMUPSMISSING LEFT PARENTHESIS IN DUMP DECLARATION: 
DMUPFSUBSCRIPTED VARIABLE IN DUMP LIST HAS WRONG. NUMBER OF 
SUBSCRIPTS. 
DMUPSSUBSCRIPTED VARIABLE IN DUMP LIST HAS WRONG NUMBER OF 
SUBSCRIPTS, 
DMUPSt IMPROPER ARRAY DUMP LIST ELEMENT. 
DMUPEILLEGAL OUMP LIST ELEMENTe 
DMUPIMORE THAN 100 LABELS APPEAR AS DUMP LIST ELEMENTS 
IN ONE DUMP DECLARATION, 
OMUPSTLLEGAL DUMP LIST ELEMENT DELIMITERe 
DMUP#MISSING DUMP LABEL IN DUMP DECLARATION, 
OMUPSMISSING COLON IN OUMP DECLARATION, 


00187000 
00188000 
00189000 
00190000 
08191000 
09192000 
09193000 
08194000 
00195000 
0196000 
00197000 
08198000 
00199000 
00200000 
00201000 
00202000 
00203000 
00204000 
00205000 
00206000 
06207000 
00208000 
90209000 
00210000 
00211000 
00212000 
00@13000 
00214000 
00215000 
00216000 
09217000 
00218000 
00218110 
00819000 
08220000 
00221000 
09222000 
00223000 
00224000 
00225000 
002826000 
0e227000 
00228000 
00229000 
09230000 
08231000 
00232000 
98233000 
00234000 
90235000 
08236000 
00237000 
08838000 
00839000 
00240000 
00241000 
00242000 
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0000 
0000 
0000 
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0000 
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437 
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440 
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444 
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448 
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450 
451 
492 
4393 


454 
455 
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438 


459 
460 


DMUPEJMPROPER DUMP DECLARATION DELIMITER, 

READSTMTSMISSING LEFT PARENTHESIS IN READ STATEMENT. 

READSTMTEMISSING LEFT PARENTHESIS IN READ REVERSE 
STATEMENT, 

READSTMTESMISSING FILE IN READ STATEMENTs 

READSTMTSIMPROPER RELEASE INDICATORe 

READSTMTSIMPROPER FILE DELIMITER IN READ STATEMENT 

READSTMTS IMPROPER FORMAT DELIMITER IN READ STATEMENT 

READSTMTSITMPROPER OELIMITER FOR SECONG PARAMETER IN READ 
STATEMENT, 

READSTMTSIMPROPER ROW DESIGNATOR IN READ STATEMENTs 

READSTMTSIMPROPER ROW DESIGNATOR DELIMITER IN READ 
STATEMENT, 

READSTMTSMISSING ROW DESIGNATOR IN READ STATEMENTS. 

READSTMT@#IMPROPER DELIMITER PRECEEDING THE LIST IN A READ 
STATEMENT.» 

HANDLETHETAILENOOF AREADORSPACESTATEMENTIELMPRUPER END OF 
FILE LABEL IN READ OR SPACE STATEMENT, 

HANDLE THETAILENDOPAREADQRSPACESTATEMENTSIJMPROQPER PARITY 
LABEL IN READ OR SPACE STATEMENT, 

HANQDLETHETATLENDOF ARE ADORSPACESTATEMENTSMISSING RIGHT 
BRACKET IN READ OR SPACE STATEMENTe 

SPACESTMTSMISSING LEFT PARENTHESIS IN SPACE STATEMENT, 

SPACESTMTIIMPROPER FILE IDENTIFIER IN SPACE STATEMENT 

SPACESTMT3MISSING COMMA IN SPACE STATEMENT, 

SPACESTMT&MISSING RIGHT PARENTHESIS IN SPACE STATEMENT. 

WRITESTMTIMISSING LEFT PARENTHESIS IN A WRITE STATEMENT, 

WRITESTMTAUIMPROPER FILE IDENTIFIER IN A WRITE STATEMENT, 

WRITESTMTSIMPROPER DELIMITER FOR FIRST PARAMETER IN A 
WRITE STATEMENT, 

WRITESTMTEIMISSING RIGHT BRACKET IN CARRIAGE CUNTROL PART 
QF A WRITE STATEMENT, 

WRITESTMTSILLEGAL CARRIAGE CONTROL DELIMITER IN A WRITE 
STATEMENT, 

WRITESTMT#IMPROPER SECOND PARAMETER DELIMITER IN WRITE 
STATEMENT, 

WRITESTMTSIMPROPER ROW DESIGNATOR IN A WRITE STATEMENTS 

WRITESTMT&MISSING RIGHT PARENTHESIS AFTER A ROW DESIGNATOR 
IN A WRITE STATEMENT, 

WRITESTMTSMISSING ROW DESIGNATOR IN A WRITE STATEMENT. 

WRITESTMTtIMPROPER DELIMITER PRECEEDING A LIST IN A WRITE 
STATEMENT, 

WRITESTMTUIMPROPER LIST DELIMITER IN A WRITE STATEMENTs 

READSTMTS IMPROPER LIST DELIMITER IN A READ STATEMENT 

LOCKSTMT#MISSING LEFT PARENTHESIS IN A LUCK STATEMENT 

LOCKSTMTSIMPROPER FILE PART IN A LOCK STATEMENT, 

LOCKSTMTUMISSING CUMMA IN A LOCK STATEMENT, 

LOCKSTMTSIMPROPER UNIT DISPOSITION PART IN A LOCK 
STATEMENT, 

LOCKSTMT&MISSING RIGHT PARENTHESIS IN A LOCK STATEMENTS 

CLOSESTMTSMISSING LEFT PARENTHESIS IN A CLOSE STATEMENT, 

CLOSESTMTtIMPROPER FILE PART IN A CLOSE STATEMENT, 

CLOSESTMTEIMISSING COMMA IN A CLOSE STATEMENTs 

CLOSESTMTSIMPROPER UNIT OI SPOSITION PART IN A CLOSE 
STATEMENT, 

CLOSESTMTSMISSING RIGHT PARENTHESIS IN A CLOSE STATEMENT, 

RWNOSTMTSMISSING LEFT PARENTHESIS IN A REWIND STATEMENT, 


90243000 
08244000 
00245000 
00246000 
09247000 
00248000 
00g49000 
00250000 
00251000 
08252000 
00253000 
08254000 
00255000 
08256000 
00a57000 
00258000 
0@259000 
00260000 
00261000 
99262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00268000 
09269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00275000 
00276000 
00277000 
00278000 
00279000 
0e280000 
00281000 
00282000 
00283000 
00284000 
00285000 
00286000 
00287000 
00288000 
0@289000 
09290000 
90291000 
00292000 
00293000 
00494000 
00295000 
06296000 
09897000 
00298000 
09299000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
Q000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


PRT(22) 
PRT(23) 
PRT(24) 


PRT(25) 


PRT(26) 


PRT(27) 
PRT(30) 
PRTC31) 


PRT(¢32) 
PRT(33) 
PRT(34) 
PRT(35) 
PRT(36) 
PRT(37) 
PRT(40) 
PRTC41) 
PRT(42) 
PRT(43) 
PRTC 44) 


PRT(45) 


ee i es ee ee 


RWNOSTMTESIMPROPER FILE PART IN A REWIND STATEMENT. 
RWNOSTMTSMISSING RIGHT PARENTHESIS IN A REWIND STATEMENT, 
BLOCK?A MONITOR DECLARATION APPEARS IN THE SPECIFICATION 
PART OF A PROCEDURE, 
BLOCKS A DUMP DECLARATION aPPEARS IN THE SPECIFICATION PaRT 
OF A PROCEDURE, 
INQLINES MISSING PARAMETER IDENTIFIER IN INLINE STREAM 
STATEMENT PARAMETER LIST. 
eID NEEOS DOUBLE PERIOO FOR PRTE IF PAST 512 
TABLES STRING LONGER THAN ONE WORD (48 BITS). 
TABLEs STRING CONTAINS A NON*@PERMISSIBLE CHARACTER: 
DOLLARCARD!? NUMBER EXPECTED. 
DOLLARGCARD!? OPTION IDENTIFIER EXPECTED, 
DOLLARCARD?s TOO MANY USER#pEFINED OPTIONS, 
DOLLARCARD? UNRECOGNIZED WORD OR CHARACTER, 
DOLLARCARD$ MISMATCHED PARENTHESES, 
DOLLARCARD$ $ IN CARD COLUMN 1 FOR OMIT CARD 
READACARD$ SEQUENCE ERROR. 
READACARD!? ERROR LIMIT HAS BEEN EXCEEDED. 


N COMMENT OUTERMOST BLOCKS 
EL» OR SEGMENT DESCRIPTOR*® 
CK DESCRIPTOR* 

ESCRIPTOR* 


EGER ERRORCOUNT? 


SYNTX ERR aT EOVY IF THIS IS NON@ZERU, MUST BE @ 
EGER SAVETIME3 COMMENS CateaFacTOR FOR cdbe ais GIvEN BY MCP 


COMMENT NUMBER OF ERROR MSGS, MCP WILL TYPE 


== 
+ 
~ 
wn 
we 


IF COMPILE & GO 30, FOR SYNTAXs webe MUST BE AT R*263 


INTEGER CAROQONUMBERS % SEQ # OF CARD BEING PROCESSED, 


INTEGER CARDCOUNTS 


464 
462 
463 
464 
465 
300 
520 
524 
600 
604 
602 
603 
604 
605 
610 
61k 
3 
BEG] 
LIST» LAB 
OUTER BLO 
*SEGMENT 0 
INT 
ERRORCOUNT 
INT 
SAVETIME 
CARONUMBER 
CARDCOUNT 
BOO 
BUILOLINE 
REAL 
RR4 
RR2 
RR3 
RR4 
RRS 
RR6 
RR? 
RR8& 
RR9 
RR1O 
RR 
REAL 
EXAMIN 


% NUMBER OF CAROS PROCESSED, 
LEAN BUILDLINES 


COMMENT RR1*RR11 ARE USED IN SQME PROCEDURES IN 
PLACE OF LOCALS TQ SAVE STACK SPACE; 
RRz~sRR2eRRIoRR4PRRIORROSRAR7PRREPRRISRRLOSRAI YS 


COMMENT SOME OF THE RRI ARE USED TO PASS FILE INFORMATION 
TO THE MAIN BLOCK) 
COMMENT EXAMIN RETURNS THE CHARACTER AT ABSOLUTE ADDRESS NCR} 
STREAM PROCEDURE EXAMINCNCRIS VALUE NCR3 


BEGIN SIeNCRIDIeELOC EXAMINSDI©DI473 OS*CHR END? 


00300000 
00301000 
00302000 
00303000 
00304000 
08305000 
08305001 
00305002 
00305100 
003806200 
00306300 
00400000 
00401000 
08403000 
00404000 
08405000 
08406000 
08410000 
00411000 
00490000 
00300000 


START OF SEGMENT 


00501000 


06804000 
00504100 


00504150 
00504700 
00805000 


00506000 
00507000 


00508000 
00309000 
00510000 
08511000 


00512000 
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0000 
0000 
0000 
0000 
0Q00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 


0000 


INTEGER STREAM PROCEDURE GETFCQ)AVALUE 3 0@523000 T 0002 
PRT(46) ® GETF 

BEGIN SIl¢Loc GETF3 SIeSle7sO]eLoc QsDleDI +53 06524000 tT 0002 

SKIP 3 OBS 9CIF SB THEN DS*SET ELSE OS*RESETS SKIP SB)3 00525000 T 003 

DIHLOC ASSTHQsDSewOSSSITQSGETFeS] 00526000 7 0005 

END GETF3 OO827000 T 0006 

COMMENT START SETTING UP FILE PARAMETERSS 00528000 T OVO? 

IF EXAMINCRRIT¢GETFC3)*"YO8") £412 THEN RR1*5 ELSE 00529000 T 0007 

BEGIN RR1e2sRR26150 ENDS 00830000 T 0013 

TF EXAMINCRRI145) £12 THEN RR3¢4 ELSE 00531000 y 0016 

BEGIN RR3*2@} RR46150 END 00532000 T 0020 

IF EXAMINCRR11410)912 THEN 00533000 T 0022 

BEGIN RR5*2;RR6O*¢1LOARR76150 END ELSE 00834000 T O24 

BEGIN RR5*1LIRRO*S6SRR7410 ENDS 00535000 T 0027 

IF EXAMINCORR11415)=12 THEN 00836000 T 0029 

BEGIN RRB*LOSRR9*150 END ELSE 00537000 7+ 0032 

BEGIN RRB*S56SRR9e10 ENDS 00538000 fT 0034 

BEGIN COMMENT MAIN BLOCKS 01000000 T 0036 

INTEGER OPINXS & USED FOR INDEXING INTO OPTIONS ARRAY, 01000800 T 0036 


PRTC47) & *SEGMENT DESCRIPTOR* 
START OF SEGMENT weewtiadne 


PRT(SO0) ® OPINX 
BOOLEAN SETTINGS % USED BY DOLLARCARO FOR AN OPTION"S SETTING, 01000802 T Q000 
PRT(51) ® SETTING 
INTEGER NEWINXs ADQVALUEs BASENYMs TOTALNOS 01000860 7 0000 
PRT(52) = NEWINX 
PRT(53) * ADDVALVE 
PRT(84) = BASENUM 
PRT(55) 2 TOTALNO 
DEFINE OPARSIZE # 200 &;j 01000902 tT 0000 
ARRAY C PARSIZE)3 0100090 0 
PRT(56) ® OPTIONS OPTIONSLO30 I 100 4 T QOO0O00 
BOOLEAN OPTIONWORDS 01000910 T 90002 
PRT(57) = OPTIONWORD 
DEFINE CHECKBIT = 8» 01000920 T 0002 
OERBUGBIT = 2h» 01000930 T 9002 
DECKBIT & 3t>s 01000940 fT 90002 
FORMATBIT = Ak, 01000950 T 0002 
INTBIT = 658, 01000960 T 0002 
LISTABIT = 668, 01000970 T 0002 
LISTBIT nn A 2) 01900980 T 0002 
LISTPBIT 5B BR, 01000990 fT 0vU02 
MCPBIT = Gt, 01001000 T OU02 
MERGEBIT = 108» 91001010 T 0002 
NESTBIT e118, 01001020 T QO002 
NEWBIT F 128, 01001030 fT Q00@2 
NEWINCLBIT B 138s Q1001040 T 0002 
OMI TBIT = 148, 01001050 fT 9QO002 
PRINTDOLLARBIT = 15%, 01001060 7 0002 


PRT(60) 
PRT(61) 
PRT(62) 


PRT(63) 
PRT(64) 
PRT(65) 
PRT (66) 


NOHEAD 
NEWBAS 
LASTCR 


XMODE 
DOLLAR 
ERRMAX 


SEQXEQ 


COMMENT 


DEFINE 


COMMENT 


BOOLEAN 
ING 
BOOLEAN 


E 
BOOLEAN 


DPATCH 
INTEGER 
BOOLEAN 
TOG 
INTEGER 


BOOLEAN 
TOG 


PRIBIT 
PUNCHBIT 
PURGEBIT 
SEGSBIT 
SEQBIT 
SEQERRBIT 
SINGLBIT 
STUFF BIT 
VOJOBIT 
VOTOTBIT 
USEROPINX = 


164, 
17#, 
18#, 
19H» 
208, 
21%» 
22s 
234» 
248, 
258» 
264; 


Ip A NEW COMPILER@DEFINED OPTION [S ADDED, CHANGE USEROPINX 
AND ADD OPTION IN DEFINES BELOws IN DOLLARCARD» AND IN 
FILL STATEMENT IN INITIALIZATION OF COMPILERS 


CHECKTOS = OPTIONWORDeCCHECKBIT#1) #» 
DEBUGTOG = OPTIONWORD«COEBUGBITI4] #, 
DECKTOG = OPTIONWORDeCDECKBITIL) # 
FORMATOG = OPTIONWORD,CFORMATBIT31) #5 
INTOG = OPTIONWORDsCINTBITS1) #, 
LISTATOG = OPTIONWORDeCLISTABITI4) #>» 
LISTOG = OPTIONWORD.CLISTBITE1] #e 
LISTPTOG = OPTIONWORDsCLISTPBITI1) #, 
MCPTOG * OPTIONWORD,CMCPBITE1) #, 
MERGETOG ® OPTIONWORDCMERGEBITS1] #, 
NESTOG = OPTIONWORDeCNESTBIT#1) #» 

NEWTOG = OPTIONWOROs(CNEWBITE1) eo 

NEWINCL = OPTIONWORDeCNEWINCLBITI1) # 
OMITTING = OPTIONWORDeCOMITBITE1) es 
PRINTOOLLARTOG = OPTIONWORDe(CPRINTOOLLARBIT!S1) #, 
PRTOG = OPTIONWORD,CPRIBITI4] #e 
PUNCGHTOG = OPTIONWORD.CPUNCHBITS1] #, 
PURGETOG = OPTIONWORD,-CPURGEBIT#1] #, 
SEGSTOG ® OPTIONWORDACSEGSBITS1) #, 

SEQTOG = OPTIONWORDSCSEQBIT#i) #,s 

SEQTOG INDICATES RESEQUENCING IS TO BE DONE 
SEQERRTOG ® OPTIONWORO.CSEQERRBITI1) #» 
SINGLTOG = OPTIONWORDeCSINGLBIT!1] #, 
STUFFTQG = OPTIONWORDeCSTUFFBITI1] #, 
VOIDING = OPTIONWORD,CVQIOBIT#1) #, 
VOTOTAPE 5 OPTIONNORDeCVOIOTSIT#I1) #, 

DUMMY = #3 
NQOWEADINGS ® TRUE IF OATIME HAS NOT BEEN CALLEDe 
NEWBASE; & NEW BASENUM FOUND ON A NEW $#CARD, 


LAST@RDPATCHS % NORMALLY FALSE» SeT TO TRUE WHEN THE 


bAST CARD FROM SYMBOLIC LIBRARY READ 


XMODES 
DOLLARTOGS & 


% 
® IS PATCHED FROM THE CARD READER, 
® TELLS DOLLARCARD HOW TO SET OPTIONS» 


TRUE IF SCANNING A DOLLAR CARDe 


ERRMAX3 ® COMPILATION STOPS IF EXCEEDED. 


SEQXEQTOGS % 


GIVE SEQ@»s NOe WHEN DS*"ING OBdy 


01001070 
01001080 
01001090 
01001100 
01001110 
01001120 
01001430 
01001140 
04001150 
01001160 
01001170 
01001180 
01001190 
01001200 
01001210 
01001220 
01001230 
01001240 
01001250 
01001260 
01001270 
01001280 
01001290 
01001300 
01001310 
01001320 
01001330 
01001340 
01001350 
01001360 
01001370 
01001380 
01001390 
01001400 
01001410 
01001420 
01001430 
01001440 
01001450 
01001460 
01001470 
01001480 


01001490 
01001500 
01001510 
01001520 
01001530 
01001540 
01001550 


01001560 
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0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
Qu02 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
Q002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 


0002 
0002 
0002 
0002 
0002 
0002 
0002 


0002 


PRT(67) 
PRT(70) 
PRTC71) 
PRT(72) 


PRT¢73) 


PRT(74) 


BOOLEAN LISTERS 


% LISTOG OR LISTATOG OR DEBUGTOG. 


LISTER 

ALPHA MEDIUM3 ® INPUT ISt TeCoPpCasCBsCC, 
MEDIUM 

INTEGER MYCLASS3 & USED IN DOLLARCARD EVALUATIONe 
MYCLASS 

REAL BATMAN$ % USED IN DOLLARCARD EVALUATIONe 
BATMAN 

ARRAY SPECIALCOS3143 
SPECTAL 


COMMENT THIS ARRAY HOLDS THE INTERNAL CODE FOR THE SPECIAL 
CHARACTORS!# IT IS FILLED DURING INITIALIZATIONS 


ARRAY INFO (0812720%255)3 


INFO 


COMMENT 
FOLLOWING IS A DESCRIPTION OF THE FORMAT OF ALL TYPES OF ENTRIES 
ENTERED IN INFOS 


COMMENT INFO CONTAINS ALL THE INFORMATION ABOUT A GIVEN IDENTIFIER 
OR RESERVED WORDe THE FIRST WORD OF A GIVEN ENTRY IS 
THE INTERNAL CODE ¢€ OR ELBAT WORD AS IT IS USUALLY 
CALLED)» THE SECOND WORD CONTAINS THE FORWARD BIT CIN 
C1312) FOR PROCEDURES» THE LINK TO PREVIOUS ENTRY CIN 
C438])» THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA® 
TION CIN €1236))» AND THE FIRST 5S CHARACTURS UF ALPHA, 
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF ALPHAs 
FOLLOWED BY ANY ADDITIONAL INFORMATIONe THE ELBAT WORD 
AND THE ALPHA FOR ANY QUANTITY ARE NOT SPLIT ACROSS A ROW 
OF INFO, FOR PURPOSES OF FINDING AN IDENTIFIER OR 
RESERVED WORD THE QUANTITIES ARE SCATTERED INTO 125 
DIFERENT LISTS OR STACKES, WHICH STACK CONTAINS A QUANTITY 
IS GIVEN BY TAKING NAAAAA MOD 125 WHERE N IS THE NUMBER 
OF CHARACTORS AND AAAAA JIS THE FIRST 5 CHARACTORS OF 
ALPHA» FILLED IN WITH ZEROS FROM THE RIGHT IF NEEDEDe 
THIS NUMBER IS CALLED THE SCRAMBLE NUMBER OR INDEXe 
THE FIRST ROW OF INFO IS USED FOR OTHER PURPOSES. THE 
RESERVED WORDS OCCUPY THE SECOND ROWe IT IS FILLED DURING 
INITIALIZATION; 

INFOQ FORMAT 


THE FIRST WORD OF ALL ENTRIES IS THE ELBAT WORDe 
THe INCR FIELD (€2788)) CONTAINS AN INCREMENT WHICH WHEN 
ADDED TO THE CURRENT INDEX INTO INFO YELOSAN INDEX TO ANY 
ADDITIONAL INFOQ CIF ANY) FOR THIS ENTRY 
E.Ge IF THE INDEX TS IX THEN INFOCCIX#INCR) oLINKRe CIX#INCR)o 
LINKC] WILL CONTAIN THE FIRST WORD OF ADDITIONAL INFO, 
THE LINK FIELD OF THE ELBAT WORD IN INFO IS DIFFERENT FROM 
THAT OF THE ENTRY IN ELBAT PUT IN BY TABLE,THE ENTRY IN ELBAT 
POINTS TO ITS OWN LOCATION CRELATIVE) IN INFO, 
THE LINK IN INFO POINTS TO THE PREVIOUS ENTRY EoGes THE 
LINK FROM STACKHEAD WHICH THE CURRENT ENTRY REPLACED, 
FOR SIMPLICITYsI WILL CONSIDER INFO TO BE A ONE OIMENSIONAL 
ARRAYsSO THAT THE BREAKING UP OF THE LINKS INTO ROW AND COLUMN 
WILL NOT DETRACT FROM THE DISCUSSION, 
ASSUME THAT THREE IDENTIFIERS AsBsAND C "SCRAMBLE" INTO 

THE SAME STACKHEAD LOCATION IN THE ORDER OF APPEARANCEs 

FURTHER ASSUME THERE ARE NO OTHER ENTRIES CONNECTED TO 
THIS STACKHEAD INDEX. LET THIS STACKHEAD LOCATION BE 

StLJ 


01001570 
01001580 
01001590 
01001600 
04003000 


01004000 
01005000 
01006000 
01007000 


01008000 
01009000 
01010000 
01011000 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01045000 
01046000 
01047000 
01048000 
01049000 


4 
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0002 
0002 
0002 
0002 
000a 


0005 
0005 
0005 
0005 


0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 


NOW THE DECLARATION 
BEGIN REAL AsBeC IS ENCOUNTERED 
IF THE NEXT AVAILABLE INFO SPACE IS CALLED NEXTINFO 
THEN A IS ENTERED AS FOLLOWS! (ASSUME AN ELBAT WURD T HAS BEEN 
CONSTRUCTED FOR A) 
TeLINK® SCLJ« CWHICH IS ZERO AT FIRST), 
SCLI*NEXTINFO, 
NEXTINFO*NEXTINFO*NUMBER OF WURDS IN THIS 
ENTRY 
NOW SCL) POINTS TO THE ENTRY FOR aA IN INFO AND THE ENTRY 
ITSELF CONTAINS THE STOP FLAG ZERO, 
B IS ENTERED SIMILARLY TO A, 
NOW SCL) POINTS TO THE ENTRY FOR B AND IT POINTS TO THE 
ENTRY FOR Ay 
SIMILARLY* AFTER C IS ENTERED 
S{LI POINTS TO C*eWHOSE ENTRY POINTS TO 8 WHOSE ENTRY 
POINTS TO As 
THE SECOND WORD OF EACH ENTRY IN INFO IS MADE UP AS FOLLOWS! 
FWOPT ®CitiJeTHIS TELLS WHETHER A PROCEDURE WAS DECLARED 
FORWARD,»IT IS RESET AT THE TIME OF ITS ACTUAL 
FULL DECLARATION, 
PURPT @€488) THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 
INDEX TO THE PREVIQUS INFO ENTRY WHEN SUBTRACTED 
FROM THE CURRENT ENTRY INDEX, 


INFOCNEXTINFOJ¢T, 


(1216) TELLS THE NUMBER OF CHARACTERS IN THE ENTRY«(<64) 
(16830) CONTAINS THE FIRST FIVE ALPHA CHARACTERS UF THE ENTRY 
AND SUCCEEDING WORDS CONTAIN ALL OVERFLOW IF NEEDEDs 
THESE WORDS CONTAIN 8 CHARACTERS EACHsLEFT JUSTIFIED, 
THUS*#AN ENTRY FOR SYMBOL FOLLOWED BY AN ENTRY 
FOR xX WOULD APPEAR AS FOLLOWS! 
INFOCI] # ELBATWRD (MADE FOR SYMBOL) 
ley 2 OP 6SYMBO (P DEPENDS ON PREVIOUS ENTRY) 
l+2 8 L 
143 5 ELBATWRD (MADE FOR X) 
[+4 3 Q31x 


THIS SHOWS THAT INFOCI#P) WOULD POINT TO THE BEGINNING OF 
THE ENTRY BEFORE SYMBOL» AND 
INFOCS+3°3) POINTS TO THE ENTRY FOR SYMBOL, 
ALL ENTRIES OF IDNETIFIERS HAVE THE INFORMATION DESCRIBED ABOVE 
THAT ISeTHE ELBAT WORD FOLLOWED BY THE WORD CQONTAING THE FIRST 
FIVE CHARACTERS OF ALPHAsAND ANY ADDITIONAL WORDS UF ALPHA IF 
NECESSARY, 
THIS s SUFFICIENT FOR ENTRIES OF THE FOLLOWING TYPES» 
REAL 
BOOLEAN 
INTEGER 
ALPHA 
FILE 
FORMAT 
LIST 
OTHER ENTRIES REQUIRE ADDITIUNAL INFORMATIONs 
ARRAYS} 
THE FIRST WORD OF ADOITIONAL INFO CONTAINS THE NUMBER OF 
OTMENSIONSCIN THE LOW ORDER PART),.( 4018) 
EACH SUCCEEDING WORD CONTAINS INFORMATION ABOUT EACH LOWER 
BOUND IN ORDER OF APPEARANCE*ONE WORD FOR EACH LOWER BOUND, 
THESE WORDS ARE MADE UP AS FOLLOWS! 


01050000 
01951000 
01052000 
01053000 
01054000 
04055000 
01056000 
01057000 
01058000 
01059000 
01060000 
01061000 
01062000 
01063000 
91064000 
01065000 
01066000 
01067000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01087000 
01088000 
01089000 
01090000 
01091000 
01092000 
01093000 
01094000 
01095000 
01096000 
01097000 
01098000 
01099000 
01100000 
01101000 
01102000 
01103000 
04104000 
01105000 
01106000 
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0007 
0007 
0007 
Q007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
Q007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 


(23442) @ADD OPERATOR SYLLABLE (0101) OR 
SUB OPERATOR SYLLABLE (0301) CORRESPONDING 
RESPECTIVELY TO WHETHER THE LOWER BOUND IS 
TQ BE ADDED TU THE SUBSCRIPT IN INDEXING OR 
SUBTRACTED, 
(35411) 314 BIT ADORESS OF LOWER BOUNDsIF THE LOWER BOUND 
REQUIRES A PRT OR STACK CELL»QTHERWISE THE BIT 
35 18 IGNORED ANO THE NEXT TEN B81786636810)) © 
REPRESENT THE ACTUAL VALUE OF THE LUWER BQUND 
C4632) #00 OR 10 DEPENDING ON WHETHER THE (35311) VALUE 
IS A LITERAL OR OPERANDPRESPECTIVELY, 
PROCEDYRES: 
THE FIRST WORD OF ADDITIONAL INFO CONTAINS TRE NUMBER OF 
PARAMETERS (4088) 
IF A STREAM PROCEOQURE THEN THIS WORD CONTAINS ALSU IN 
€13%11] ENDING PRT AQDRESS FOR LABELS? 
C 736] NQ OF LABELS REQUIRING PRT ADDRESSES» ANDO £136) NUMBER 
OF LOCALS, 
SUCCEEDING WORDS CONE FOR EACH FORMAL PARAMETERS IN ORDER 
QF APPEARANCE IN FORMAL PARAPART) ARE 
ELBAT WORDS SPECIFYING TYPE QF EACH PARAMETER ANDO WHETHER 
VALUE OR NOTCC1I0%41)), 
THE ADORESS(C16#11)) IS THE Fe ADDRESS FOR EACHe 
IF THE PARAMETER IS AN ARRAY THEN THE INCR FIELOC(2788)) , 
CONTAINS THE NUMBER OF DIMENSIONS. OTHERWISE INCR JS MEANINGLESSe 
LINK(C35813)) IS MEANINGLESS. 
IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMATER IS 
THAT OF LOCAL 10 OR FILE JD» DEPENDING ON WHETHER OR NOT A RELEASE 
IS DONE IN THE STREAM PROCEDURE. 
LABELS: 
AT DECLARATION TIME THE ADDITIONAL INFO CONTAINS Oe THE SIGN 
BIT TELLS WHETHER OR NOT THE DEFINITION POINT HAS BEEN REACHEDe 
IF SIGN = QO» THEN €36312] CONTAINS AN ADDRESS IN CODEARRAY OF A 
LIST OF FORWARD REFERENCES TO THIS LABEL. THE END OF LIST FLAG IS 
O, IF SIGN #0» THEN (36812) CONTAINS & FOR THIS LABELe 
SWITCHES! 
THE FYELD €36812) CONTAINS & FOR THE BEGINNING OF SWITCH DECLAR®@ 


ATION. (C24812] CONTAINS | FOR FIRST SIMPLE REFERENCE TO SWITCH, 
IF SWITCH IS NOT SIMPLE» IT IS MARKED FORMAL. HERE SIMPLE MEANS 
NO POSSIBILITY OF JUMPING OUT OF A BLOCK. ; 


DEFINE MON BC it Lite 
CLASS =€ Qt 7) Rs 
FORMALS(C 93 1J)#s 
VQ C108 les 
LVL BUL1: Sl#,s 
ADDRESSS (16811) #s 
INCR wC27t Ble 
LINK #(35%13]%» 
LINKR 8(358 Sjk, 
LINKC #(403 8)#3 
COMMENT THESE DEFINES ARE USED TO PICK APART THE ELBAT WORDe 
MON IS THE BIT WHICH IS ON IF THE QUANTITY 19 MONITORED, 
CLASS IS THE PRINCIPAL IDENTIFICATION OF A GIVEN 
QUANTITY, 
FORMAL IS THE BIT WHICH IS ON IF THE QUANTITY IS A FURMAL 
PARAMETER, 
VO IS THE VALUVE*OWN BITe IF FORMAL = 1 THEN THE BIT 


01107000 
91108000 
01109000 
01110000 
01111000 
01112000 
01113000 
01114000 
01115000 
01116000 
01117000 
01118000 
01119000 
04120000 
01121000 
01122000 
01123000 
01124000 
01125000 
01126000 
01127000 
01128000 
01129000 
01130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 
01137000 
01138000 
01139000 
01140000 
01141000 
01142000 
01143000 
01144000 
01145000 
01146000 
01147000 
01148000 
01149000 
01150000 
01151000 
01152000 
01153000 
01154000 
01155000 
01156000 
01157000 
01158000 
01159000 
01160000 
01161000 
03162000 
01163000 
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0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
Q007 
0007 
0007 


LVL GIVES THE LEVEL AT WHICH A QUANTITY WAS DECLARED. 


DISTINGUISHES VALUE PARAMETERS FROM OTHERSs IF 


FORMAL 5 0 THEN THE BIT DISTINGUISHES OWN VARIABLES 


FROM UTHERS, 


ADDRESS GIVES THE STACK OR PRT ADDRESS» 


INCR GIVES A RELATIVE LINK TO ANY ADDITIONAL INFORMATION 


NEEDED» RELATIVE TO THE LOCATION IN INFO® 
LINK CONTAINS A LINK TO THE LOCATION IN INFO IF THE 


QUANTITY LIES IN ELBAT* OTHERWISE JT WINKS TO THE 


NEXT ITEM IN THE STACKe ZERU IS AN END FLAG. 
LINKR AND LINKC ARE SUBOIVISIONS OF LINKe3 


COMMENT CLASSES FOR ALL QUANTITIES = OCTAL CLASS [3S IN CUMMENTS 
COMMENT CLASSES FOR IDENTIFIERSS 
DEFINE UNKNOWNIO 2008s COMMENT 0003 

STLABID =O1#s COMMENT 0013 
LOCLIO "028s COMMENT 0023 
DEFINEDID BO34>s COMMENT 0033 
LISTIO ROME, COMMENT 0043 
FRMTID BO5#, COMMENT 0053 
SUPERFRMTIO BO68s COMMENT 0063 
REALSUBID 307K» COMMENT 0073 
SUBID =OG#s COMMENT 0103 
SWITCHID TOOK» COMMENT 0433 
PROCIO B10%> COMMENT 0123 
INTRNSICPROCIO 81125 COMMENT 0133 
STRPROCID 312%» COMMENT 014% 
BOOSTRPROCID F13%» COMMENT 0153 
REALSTRPROCID =14#» COMMENT 0163 
ALFASTRPROCID #45%, COMMENT 0173 
INTSTRPROCID =15#s COMMENT 0473 
BOGRPROCID S47k» COMMENT O213 
REALPROCIDO iG#s COMMENT 0223 
ALFAPROCIDO 7198s COMMENT 0233 
INTPROCIO =U98, COMMENT 0233 
BOQTO 21H» COMMENT 0253 
REALIO =22k> COMMENT 0263 
ALFAID R238>s COMMENT O273 
INTIO 223%, COMMENT 0273 
BOOARRAYID S258» COMMENT O313 
REALARRAYIO Fe6#» COMMENT 0323 
ALFAARRAYID BQ7ks COMMENT 0333 
INTARRAYID B27#s COMMENT 0333 
NAMEID &308, COMMENT 0363 
INTNAMETO =318> COMMENT 0373 
LABELID B328, COMMENT 0403 

COMMENT CLASSES FOR PRIMARY BEGINNERSS 
TRUTHV B33%>» COMMENT 0433 
NONLITNO S344, COMMENT 0423 
LITNO S35#, COMMENT 0433 
STRNGCON 3368s COMMENT 0443 
LEFTPAREN E378» COMMENT 0453 
POLISHV R388. COMMENT 0463 
ASTRISK 539K, COMMENT O473 

COMMENT CLASS FOR ALL DECLARATORS; 
DECLARATORS BAQ#s COMMENT 0803 

COMMENT CLASSES FOR STATEMENT BEGINNERS 


DOUBLEV 


ZUQk>s 


COMMENT 


0523 


01164000 
01165000 
01166000 
01167000 
01168000 
01169000 
01170000 
01171000 
01172000 
01173000 
01174000 
01179000 
01176000 
04177000 
01178000 
01179000 
01180000 
01181000 
01182000 
01183000 
01184000 
01185000 
04186000 
04187000 
01188000 
01189000 
01190000 
01191000 
01192000 
01193000 
01194000 
01195000 
01196000 
01197000 
01198000 
01199000 
01200000 
01201000 
01202000 
04203000 
01204000 
01%05000 
01205200 
014905400 
01206000 
01207000 
01208000 
01209000 
01210000 
01211000 
01212000 
01212100 
01212200 
01213000 
01214000 
01215000 
01@22000 
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0vU0? 
0007 
0007 
0U0?7 
0007 
Q007 
0007 
0007 
0007 
0U07 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0Q07 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
O00? 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 


FORV S438» COMMENT 0533 01223000 7 0007 
WHILEV BUAts COMMENT 0543 01224000 T 0007 
DOV 2458s COMMENT 0553 01229000 ~ 0007 
UNTILV FU6#»s COMMENT 0563 01226000 T 0vV07 
ELSEV SA7#s COMMENT 0573 01827000 T Q007 
ENDV =4BH>s COMMENT 0603 01428000 T 0007 
SEMICOLON 250%» COMMENT 0623 04230000 ~ 0007 
IFv BSi#s COMMENT 0633 01231000 rt 0007 
GOV =52k, COMMENT 0643 013232000 T 0007 
IOCLASS SS 3k, COMMENT 0653 01233000 fT 0007 
BEGINV R548» COMMENT 0663 01234000 T 0007 
COMMENT CLASSES FOR STREAM RESERVED WORDS; 01235000 T 0007 
SIV *55%, COMMENT 0673 01236000 T 0007 
DIa S56H» COMMENT 0703 01237000 T 0007 
Clv 357#» COMMENT O7143 01238000 Tt 0007 
TALL YV R58%s COMMENT 0723 04839000 T 0007 
OSV =S59H, COMMENT 0733 01240000 T 0007 
SKIPV 260k» COMMENT 0743 01241000 T 0007 
JUMPYV zO1#, COMMENT 0753 O4Z42000 7 0007 
OBV ®62H» COMMENT 0763 01243000 Tt 0007 
5BV 263%» COMMENT 0773 01244000 T OQO07 
TOGGLEV TOUR, COMMENT 1003 01245000 fT 0007 
SCV 3O5#> COMMENT 1013 01246000 tT 0007 
LOCV 5668» COMMENT 1023 01247000 7 0007 
OCV BO78s COMMENT 1033 01248000 T 0007 
LOCALV FORK» COMMENT 1043 01249000 Tt 0007 
LITV Z69#» COMMENT 1053 04250000 ¥ 0007 
TRNSFER =70#>s COMMENT 1063 01851000 7 0007 
COMMENT CLASSES FOR VARIOUS MISCELLANEOUS QUANTITIESS 01452000 T 0007 
COMMENTV B71 GQOMMENT 1073 01253000 rt 90007 
FORWAROV =72H» COMMENT 1103 01254000 7 9007 
STEPV =73#» COMMENT 1113 04255000 7 0007 
THENV R7 4H. COMMENT i123 01256000 T 0007 
TOV 2758, COMMENT 1133 01257000 ~ 0007 
VALUEV =768» COMMENT 1443 01258000 T 0007 
WITHV S77#» COMMENT 1153 03259000 7 0007 
COLON B78R, COMMENT 1163 01260000 T 0007 
COMMA 2798s COMMENT 1173 01261000 Tt 0007 
CROSSHATCH BB08> COMMENT 14203 03262000 fT 0007 
LF TBRKET SB1He COMMENT 1213 01263000 tT 0007 
PERIOD *B28s COMMENT 1223 04264000 7 0007 
RTBRKET SBI, COMMENT 1233 01265000 Tt 0007 
RTPAREN =B48» COMMENT 1243 01266000 T 0007 
AMPERSANO SOS4> COMMENT 1253 01266500 T 0007 
COMMENT CLASSES FOR OPERATORS} 01267000 T 0007 
HEXOP SB6#>s COMMENT 1263 01268000 ¥ 0007 
BITOP *87#> COMMENT 1273 01269000 T 0007 
ISOLATE FEBH>» COMMENT 1303 04270000 T 0007 
OPERATOR SEO» COMMENT 1313 01271000 T 0007 
NOTOP 90k» COMMENT 1323 O4@72000 T 0007. 
ASSIGNOP BILE» COMMENT 1333 01273000 rt 0007 
EQvOP S928» COMMENT 1343 012874000 T 0007 
ORQP =938> COMMENT 1353 01279000 7 0007 
ANDOP ROME COMMENT 1363 01476000 T 90007 
RELOP R958, COMMENT 1373 03g77000 + 0007 
ADoP 7968. COMMENT 1403 O1g78000 T 0007 
MULOP 297#» COMMENT 141413 01276500 T 0007 


150#», % USED IN BUILDING INTABLE © 09414420 


% STRING =9O9#» COMMENT 
COMMENT SUBCLASSES FOR DECLARATORS 
OWNV 01%, COMMENT 
SAVEV 70285 COMMENT 
BOOV F038» COMMENT 
REALV 204% COMMENT 
ALFAV E05#» COMMENT 
INTV FO05h, COMMENT 
LABELV B07%>» COMMENT 
DUMPV 2O8Rs COMMENT 
SUBK 209%» COMMENT 
OUTV E108» COMMENT 
INV F11e» COMMENT 
MONT TORV 3128» COMMENT 
SWITCHV L380 COMMENT 
PROCV =14H» COMMENT 
ARRAYV 7158. COMMENT 
NAMEV SL6Re COMMENT 
FILEV S178» COMMENT 
STREAMV =168>s COMMENT 
DEFINEV a1983 COMMENT 
DEFINE ODES * 68> 
ADES = 28%, 
POES = 298» 
OES ® 308» 
CHAR ms 31%, 
FACTOP ® ASTRISK#» 
OPERATORS = WEXOPS. 
FILEIO = OH, 
MAXINTRINSIC # 
INTRINSICADR & 


REAL TIME13 
PRTC(75) 3 TIME! 
BOOLEAN ASTOG3 
PRT(76) = ASTOG 
BOOLEAN SAF3 
SAF 


PRT(77) 
INTEGER SCRAM; 
PRTC(100) = SCRAM 


COMMENT SCRAM CONTAINS THE SCRAMBLE INDEX FOR THE LAST IDENTIFIER 


CMAXINTRINSIO DIV 30)#3 % RESERVES SEG FOR INTABLE 


OR RESERVED WORD SCANNED} 
ALPHA ARRAY ACCUM[Ot10]3 


PRT(101) = ACCUM 


COMMENT ACCUM HOLDS THE ALPHA ANDO CHARACTER COUNT OF THE LAST 
SCANNED TTEM IN A FORM COMPATIBLE WITH ITS APPEARANCE 
IN INFOs THAT 2S ACCUMES] = QOONAAAAA, ACCUMET) » 
HAS ANY ADDITIONAL CHARACTERS» ACCUM(O] IS USED FOR 


1433 
CKEPT IN ADORESS)3 
013 
O23 
033 
043 
053 
053 
O73 
103 
114 
123 
133 
143 
153 
163 
1753 
203 
2s 
223 
233 


THE EL BAT WORD BY THE ENTER ROUTINES3S 
ARRAY STACKHEAD(O%$125)3 


PRT(102) # STACKHEAD 


COMMENT STACKHEADCN) CONTAINS AN INDEX INTO INFO GIVING THE TOP 


ITEM IN THE NTH STACK? 


INTEGER COUNT) 
PRTC103) * COUNT 


COMMENT COUNT CONTAINS THE NUMBER OF CHARACTORS OF THE LAST ITEM 
SCANNED} 


ALPHA Q3 


01278600 
01279000 
01280000 
01281000 
01282000 
01283000 
01284000 
01289000 
01286000 
01887000 
01288000 
01289000 
01290000 
04291000 
01292000 
01293000 
01994000 
01295000 
01296000 
01897000 
01298000 
01299000 
01299010 
01299020 
04299030 
01299040 
01299100 
01299200 
01299300 
04299400 
01899500 
04300000 


01300100 
01300200 
01301000 


01302000 
02303000 
01304000 


01305000 
01806000 
01307000 
01308000 
01309000 
01310000 


01311000 
01312000 
01813000 


01314000 
01335000 
01316000 
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0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 
0007 


0007 
0007 
0007 


0007 
0007 
0007 


0010 
0010 
0010 
0010 
0010 
0010 


0012 
Q012 
002 


0012 
0012 
0012 


PRT(104) 


PRT(105) 
PRT( 106) 
PRTC107) 


PRT(110) 


PRT(411) 
PRT(112) 
PRT(113) 
PRT(114) 
PRT(115) 


PRT(116) 


PRTC417) 


PRT¢420) 


PRT(421) 
PRT¢122) 


PRT(123) 
PRT¢424) 


PRT(125) 
PRT(126) 


PRT¥(127) 


Ce || 


HH aH oA 


Q 
COMMENT @ CONTAINS ACCUMC1) FOR THE LAST IDENTIFIER OR RESERVED 
WORD SCANNED} 
ARRAY ELBATLOS75)3 INTEGER I» NXTELBTS 
ELBAT 
I 
NXTELBT 
COMMENT ELBAT IS AN ARRAY HOLDING ELBAT WORDS FOR RECENTLY SCANNED 
QUANTITIESe THE TABLE ROUTINE MAINTAINS THIS ARRAY, 
CELBAT IS TABLE SPELLED BACKWARDS.) THE TABLE ROUTINE 
GUARANTIES THAT ELBAT ALWAYS CONTAINS THE ELBAT WORDS 
FOR THE LAST 140 QUANTITIES SCANNEDe NXTELBT IS AN INDEX 
POINTING TO THE NEXT AVAILABLE WORD IN ELBATe I JS AN 
INDEX USED BY THE REST OF THE COMPILER TO FETCH THINGS 
FROM ELBATe I ITS ALSO MAINTAINED BY THE TABLE ROUTINES 
INTEGER ELCLASS; 
ELCLASS 
COMMENT ELCLASS USUALLY CONTAINS ELBATCIIJ]eCLASS; 
INTEGER FCRe NCRe LCR TLCORs CLCRS 
FCR 
NCR 
LCR 
TLCR 
CLCOR 
INTEGER MAXTLCR3 
MAXTLCR 
COMMENT FCR CONTAINS ABSOLUTE ADDRESS OF THE FIRST CHARACTOR OF 
THE CARD IMAGE CURRENTLY BEING SCANNEDs NCR THE ADORESS 
OF THE NEXT CHARACTOR TO BE SGANNEDs ANO LCR THE LAST 
CHARACTOR (COLUMN 73), TLCR AND CLCR CONTAIN ADORESS OF 
THE LAST CHARACTER IN THE TAPE AND CARD BUFFERS, MAXTLCR 
1S THE MAXIMUM OF TLCOR WHEN THE INPUT IS BLOCKEDS 
ARRAY TEN[=46269]3 
TEN 
DEFINE PRTBASEa129#s+PRTOPS896#3 COMMENT PASE AND TOP OF PRT3 
ARRAY PRILPRTIBASESPRTOP)3 
PRT 


INTEGER DISKADR»CORADRS COMMENT GLOBALS FOR PROGDESCBLUR3 
DISKADR 
CORADR 

INTEGER SGAVLSCOMMENT NEXT AVAILABLE SEGMENT NUMBERS 
SGAVL 

INTEGER SGNOJSCOMMENT THIS IS THE CURRENT SEGMENT NUMBER} 
SGNO 


ARRAY COPsWOP[O812@7)3 


THE EMIT ROUTINES PLACE EACH SYLLABLE INTO THE EDOC ARRAY 
AS SPECIFIED BY "LL". 
IF THE DEBUGTOG IS TRUE COP AND WOP ARE FILLED WITH 
THE BCD FOR THE QPERATORS,OTHERWISE THEY ARE NOT USED} 
REAL LASTENTRY 3 
LASTENTRY 
COMMENT LASTENTRY [S USED BY EMJTNUM AND CONSTANTCLEANe IT POINTS 
INTO INFOQCO,*] AT THE NEXT AVAILABLE CELL FOR CONSTANTS 
BOOLEAN MRCLEAN 3 


COMMENT 


01317000 
01318000 
01819000 


01320000 
01321000 
01322000 
01323000 
01324000 
01325000 
01326000 
01327000 
01328000 


01329000 
01330000 


01331000 


01332000 
01333000 
01334000 
01335000 
01336000 
014337000 
01340000 


01341000 
01342000 


01343000 
01344000 


01369000 
01370000 


01371000 


01972000 
01373000 
01474000 
03375000 
01376000 


01377000 


01378000 
01379000 
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0012 
0012 
0012 


0015 
0015 
0015 
0015 
0015 
Q015 
001s 
0015 
0015 


0015 
0015 


0015 


0015 
0045 
0045 
0015 
0015 
0015 
0045 


Q017 
0017 
0017 


0020 


0020 
0020 


0020 


0023 
0023 
Q023 
0023 
0023 


0023 


0023 
0023 


PRT(130) 


PRT(131) 
PRT(132) 
PRT(133) 
PRT(134) 
PRT(435) 


PRT(136) 


PRT(437) 


PRT(440) 


PRTC141) 


PRT(442) 
PRT(143) 
PRT(144) 
PRT(145) 


i | 


“HOUR 


MRCLEAN 
COMMENT NOQ CONSTANTCLEAN ACTION TAKES PLACE WHILE MRCLEAN IS 
FaLSEs THIJS FEATURE IS USED BY BLOCK BECAVSE OF THE 
POSSIBILITY THAT CONSTANTCLEAN WILL USE INFOCNEXTINFO) 
DURING AN ARRAY DECLARATION 3 
REAL GT10GT29GT39GT4seGT53 


INTEGER GTI13 


COMMENT THESE VARYJABLES ARE USED FOR TEMPORARY STORAGES 
INTEGER RESULTS 


RESULT 
: COMMENT THIS VARIABLE IS USED FOR A DUAL PURPOSE BY THE TABLE 
ROUTINE AND THE SCANNERe THE TABLE ROUTINE USES THIS 
VARIABLE TO SPECIFY SCANNER OPERATIONS ANO THE SCANNER 
USES IT TO INFORM THE TABLE ROUTINE OF THE ACTION TAKENS 
INTEGER LASTUSED3 
LASTUSED 
COMMENT LASTUSED 13 A VARJABLE THAT CONTROLS THE ACTION OF 
READACAROs THE ROUTINE WHICH READS CARDS AND INITIALIZES 
OR PREPARES THE CARD FOR THE SCANNER} 
LASTUSED LAST CARD READ FROM 
ee 22a ae Fen aenaet wen Wun ea wean 
CARD READER ONLY» NO TAPEs 
CARD READER» TAPE AND CARD MERGEs 
TAPEs TAPE ANO CARD MERGEs 
INITIALIZATION ONLY» CARD ONLY. 


f&whe 


3 

BOOLEAN LINKTOGS 
LINKTOG 

COMMENT LINKTOG IS FALSE IF THE LAST THING EMITTED IS A LINKes 
OTHERWISE IT IS TRUE; 

INTEGER LEVEL» FRSTLEVEL*s SUBLEVEL» MODES 
LEVEL 
FRSTLEVEL 
SUBLEVEL 


MODE 

COMMENT THESE VARIABLES ARE MAINTAINED BY THE BLOCK ROUTINE TO KEEP 
TRACK OF LEVELS OF DEFINITIONe LEVEL GIVES THE DEPTH OF 
NESTING IN DEFINITION», WHERE EACH BLOCK AND EACH PROCEDURE 
GIVES RISE TO A NEW LEVEL. SUBLEVEL GIVES THE LEVEL OF 
THE PARAMETERS OF THE PROCEQURE CURRENTLY BEING COMPILED. 
FRSTLEVEL IS THE LEVEL OF THE PARAMETERS OF THE MUST 
GLOBAL OF THE PROCEDURES CURRENTLY BEING COMPILED, MODE 
TS THE CURRENT DEPTH GF THE PROCEDURE IN WHICH WE ARE 
NESTED CAT COMPILE TIME)3 

BOOLEAN ERRORTOGs 


PRT(146) = ERRORTOG 


COMMENT ERRORTOG IS TRUE IF MESSAGES ARE CURRENTLY ACCEPTABLE TO THE 
ERROR ROUTINES, ERRORCOUNT IS THE COUNT OF ERROR MSSGS3 
BOOLEAN ENDTOGS COMMENT ENOTOG TELLS THE TABLE TO ALLOW 


PRTC147) = ENDTOG 


COMMENT TO BE PASSED BACK TO COMPOQUNOTAILS 


01380000 
01381000 
01382000 
01883000 
01384000 


01384500 


01385000 
01386000 


01387000 
01388000 
013489000 
01390000 
01391000 


01392000 
04393000 
0:394000 
01394500 
01394600 
01399000 
04396000 
01397000 
04398000 
01398300 
01399000 


04400000 
01401000 
01402000 


01403000 
01404000 
01405000 
01406000 
03407000 
01408000 
01409000 
01410000 
01411000 
01412000 


01413000 
01414000 
01415000 


01416000 
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0023 
0023 
0023 
0023 
0023 


0023 


0023 
0023 


0023 
0023 
0023 
00283 
0023 


0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 


0023 
0023 
Q023 


0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 


0023 
0023 
0023 


0023 


PRT(150) 


PRT(151) 


PRT(152) 


PRT(153) 


PRT(154) 


PRT(155) 
PRT(156) 


PRT(157) 
PRT(160) 
PRT(161) 
PRT(162) 


BOOLEAN STREAMTOGS 
= STREAMTOG 
COMMENT STREAMTUG IS TRUE IF WE ARE COMPILING STREAM STATEMENTe IT 
IS USED TO CONTROL COUMPOUNDTAIL, 
DEFINE FS ws 1#p FP & 28s FL = 34s FR wQk3 
COMMENT THESE DEFINES ARE USED WHEN CALLING THE VARIABLE ROUTINE® 
THEIR PURPOSES 3S TO TELL VARIABLE WHO IS CALLING. 
THETR MEANING IS! 
FS MEANS FROM STATEMENT? 
FP MEANS FROM PRIMARY, 
FL MEANS FROM LISTe 
FR MEANS FROM FOR? 
INTEGER Li 
zak 
COMMENT &L 3S THE LOCATION OF THE NEXT SYLLABLE TO BE EMITTED 
DEFINE BLOCKCTR © 16#2 JUNK @ 17 #, XITR 2 18 #£s LSTRIN = 1983 
DEFINE ATYPE 234» BTYPESATYPE#s 0TYPERATYPERS 
BOOLEAN TBi3 


COMMENT TB1 IS A TEMPORARY BOOLEAN VARIABLES 
INTEGER JUMPCTRS 


= JUMPCTR 
: COMMENT JUMPCTR [5 A VARTABLE USED FOR COMMUNICATION BETWEEN BLOCK 

AND GENGOs IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 
SEGMENT» THE BLOCK COMPILES CODE TO INCREMENT AND DECRE® 
MENT THE SLOCKCTR ON THE BASIS OF YUMPCTR AT COMPLETION 
OF COMPILATION OF A SEGMENT © JeEs THE BLOCKCTR IS TALLIED 
IF LEVEL ® JUMPCTRS 


= TBi 


REAL STLB3 
= STLB | 
COMMENT STLB IS USED BY VARIABLE AND AGCTUALPARAPART TO CUMMUNICATE 
THE LOWER BOUND INFORMATION FOR THE LAST DIMENSION OF THE 
ARRAY INVOLVED IN A ROW DESIGNATOR, THE FORMAT OF THE 
INFORMATION I§ THAT OF INFO. STUB IS ALSO SOMETIMES USED 
FOR TEMPORARY STORAGE3 
DEFINE BUMPL a LeL+2#3 
COMMENT BUMPL IS USED MOSTLY TO PREPARE A FORWARO JUMP3 
DEFINE IOMAX = LABELIO#3 
COMMENT IOMAX IS THE MAXIMUM CLASS NUMBER FOR IDENTIFIERSS 
INTEGER DEFINECTReDEFINEINDEXS 
= DEFINECTR 
= DEFINEINDEX 


REAL JOINFO» COMMENT POINTS TO PSEVDO LABEL FOR JUMP QUTS3 
= JOINFO 
LPRTs COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT 3 
= LPRT 
NESTLEVEL» COMMENT GOQUNTS NESTING FOR GO TO AND JUMP OUTS; 
® NESTLEVEL 
JUMPLEVELS COMMENT NUMBER OF LEVELS TO BE YUMPED OUT; 


= JUMPLEVEL 
COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENTS 
ARRAY MACROCON3S)3 


01417000 


01418000 
01419000 
01420000 
01421000 
01422000 
01423000 
01424000 
01425000 
01426000 
01427000 
01428000 


01429000 
01430000 
01452000 
01457000 


01458000 
01459000 


01460000 
02461000 
01462000 
01463000 
01464000 
01465000 
01466000 
01467000 
01468000 
01469000 
01470000 
01471000 


01472000 
01473000 
01474000 
01475000 
01476000 
01477000 
01478000 
041479000 
01480000 
01481000 


01482000 
01483000 
01484000 


014485000 


01466000 
01487000 
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Te ie fee Bie Bee Meee, ee ee ee ee ee ee ee ee a a 


| 


44 4 + = 


0023 


0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 


0023 
0023 
0023 
0023 


0023 
0023 


0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 


0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 
0023 


0023 
0023 
0023 


0023 


0023 
0023 


PRTC€163) 


PRT(164) 
PRT(165) 
PRT(166) 
PRTC167) 


PRTC170) 


PRTC471) 
PRT(472) 


PRT(173) 


PRT(174) 


MACRO 
COMMENT MACRO IS FILLED WITH SYLLABLES FOR STREAM STATEMENT} 
REA, Pp» COMMENT CONTAINS NUMBER OF FORMALS FOR STREAM PROCS3 
P 
Zi COMMENT CONTAINS 1ST WORD OF INFOQ FOR STREAM FUNCTIONS3 
Z 
ARRAY NEWTAPBUF[O0#9)}3 
NEWTAPBUF 
SAVE ARRAY DEF JNEARRAY(0823];3 
DEF INEARRAY 
COMMENT THESE VARIABLES ARE USED TO CONTROL ACTION OF THE DEFINE. 
DEFINECTR COUNTS DEPTH OF NESTING OF DEFINE#* PAIRS, 
THE CROSSHATCH PART OF THE TABLE ROUTINE USES DEFINECTR 
TO DETERMINE THE MEANING QF A CROSSHATCHe pEFINEINDEX IS 
THE NEXT AVAILABLE CELL IN THE DEFINEARRAY. THE DEFINE 
ARRAY HOLDS THE ALPHA OF THE DEFINE BEING RECREATED AND 
THE PREVIOUS VALUES OF LASTUSEDs LCR» AND NCRI 
INTEGER BEGINCTRI 
BEGINCTR 
COMMENT BEGINCTR GIVES THE NUMBER OF UNMATCHED BEGINSe IT IS USED 
FOR ERROR GONTROL ONLY 
INTEGER DIALAsDIALB; 
DIALA 


DIALB 
COMMENT THESE VARJABLES GIVE THE LAST VALUE TO WHICH A AND B WERE 


OTALEQse THIS GIVES SOME LOCAL OPTIMIZATIGNe EmITO 
WORRIES ABOUT THISe OTHER ROUTINES CAUSE A LOSS OF MEMORY 
BY SETTING OJALA ANDO DIALB TO ZERO; 


BOOLEAN RRBiS COMMENT RRBiewe@RRBN ARE BOOLEAN VARIABLES THAT SERVE THE 


RRB1I 
SAME FUNCTION AS RR1*"*RRN FOR REAL VARIABLES. SEE 
COMMENT AT RR1} 
BOOLEAN RRB23 COMMENT SEE COMMENT AT RRB DECLARATIONS 
RRB2 


DEFINE ARRAYMONFILE # C2731149#3 COMMENT ARRAYMONFILE IS THE DEFINE FOR 
THE ADORESS OF THE FILE DESCRIPTOR IN 
THE FIRST WORD OF ADDITIONAL INFQ3 
COMMENT MONITORFILE IS THE DEFINE FOR 

THE ADDRESS OF THE FILE DESCRIPTOR IN 

INFO FOR MONITORED SIMPLE VARIABLESS 
COMMENT THE FIRST ADDITIONAL WORD OF INFO 

FOR ARRAYS CONTAINS THE NUMBER OF OIMENSIONS 
IN NODIMPARTS 

DEFINE ,ABLMONFILE # €13812)83 COMMENT LABLMONFILE DESIGNATES THE BIT 

POSTTION IN THE FIRST WORD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 

ADDRESS FOR LABELS} 

COMMENT SWITMONFILE DESIGNATES THE BIT 
POSITION IN THE FIRST WORD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS; 

COMMENT FUNCMONFILE DESIGNATES THE BIT 
POSITION IN TRE FIRST WURD OF ADDITIONAL 
INFOQ THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS; 

COMMENT THE DUMPEE FIELD IN THE FIRST 
ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 


DEFINE SVARMONFILE # C37 841) 43 


DEFINE NODIMPART = (4008) #3 


DEFINE SWITMONFILE = Ci3tirjas 


DEFINE FUNGMONFILE = C27211)83 


DEFINE pUMPEE = (2911)483 


01488000 
01489000 


01490000 
01490510 
01491000 


01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 


01500000 
01501000 
01802000 


01503000 
01804000 
01505000 
01906000 
01522000 


01323000 
01924000 
01525000 


01926000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01336000 
01537000 
01838000 
01839000 
01540000 
01541000 
01942000 
01543000 
01544000 
01545000 
01546000 
01547000 
01348000 
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+ 
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0026 
0026 


0026 
0026 
0028 


0031 
0031 
0034 
0034 
0031 
00314 
0031 
0031 


0031 
0034 
0031 


0031 
0034 
00314 
00314 
0OQ34 


0031 
0031 
0034 


0034 
0034 
0034 
0034 
00314 
OO34 
0031 
0034 
0034 
00314 
0034 
0031 
0034 
00314 
0031 
0031 
0031 
0034 
0034 
0034 
0031 
0031 
0031 


PRTC175) 
PRT(176) 
PRT(177) 
PRTC200) 
PRTC201) 
PRT( 202) 
PRT(203) 
PRT(204) 
PRT(205) 


PRT(206) 
PRT(207) 


PRTC210) 
PRT(211) 


PRT(212) 
PRT(213) 
PRTC214) 
PRT(215) 


PRT(216) 


PRT(217) 
PRT(220) 


THE ADDRESS OF THE COUNTER THAT JS INCREMENTED 
EACH TIME THE LABEL IS PASSEO IF THAT LABEL 
APPEARS IN A DUMP DECLARATIONS 

COMMENT THE OUMPOR FIELD IN THE FIRST 
ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS OF THE ROUTINE THAT IS GENERATED 
FROM THE QUMP DECLARATION THAT JIN TURN CALLS 
THE PRINTI ROUTINES 


DEFINE DUMPOR = [C24%11)83 


DEFINE SUBOP#468} 

FILE OUT CODE DISK SERTALC1I#19¢121023); 
CODE 

FILE IN CARDCRR1210/RR2)3 
CARD 

FILE OUT LINE DISK SERTALC2Z0F2Q00](CRAZe1SeRR4eSAVE 1073 
LINE 


FILE ATTRBUTS 
ARRAY LINCO%20)]3 COMMENT PRINT OUTPUT BUILT IN LINE 
— INTEGER DA3 
es SAVE FILE OUT NEWTAPE DISK SERTALC2Z0 2400] CRRSPRROSRA7FPSAVE 193 
pale Se IN TAPE "OCRDIMG"C2sRREORRVIS 


TAPE 

SAVE ARRAY CBUFF*sTBUFFCOS9)3 & INPUT BUFFERS» 
CBUFF 
TBUFF 

FILE OUT CODISK OISK SERIAL €208600) (2302300)3 
CODISK 


FILE OUT DISK DISK 0182100) "MCP""DOISK"(3s302300sSAVE 99)3 
DISK 


DEFINE MCPTYPE 2 638» 
DCINTYPE % 62%» 
TSSINTYPE = 61483 
COMMENT ESPOL CODE FILES ARE UNIQUELY TYPED IN THEIR FILE 
HEADERS « HEADERCG},03636) IS THE FIELD USED TO CONTAIN 
THE TYPES 


FILE QUT DECK O (221093 


Fite STUFF DISK SERTJALC208150)(2010s30eSAVE 15)3 
STUFF 
ARRAY TWXACO#16)3 


DECK 


TWXA 
REAL ©} 
C 
COMMENT C CONTAINS ACTUAL VALUE OF LAST CONSTANT SCANNED3 
REAL T;3 
COMMENT T [S A TEMPORARY CELLS 
INTEGER TCOUNTS 
TCOUNT 
REAL STAGKCTS 
STACKCT 


COMMENT TCOUNT IS A VARTABLE WHICH HOLOS A PREVIOUS VALUE OF COUNT 
FOR THE USE OF CONVERT 


DEFINE LASTSEQUENCE = 1458, 


013549000 
01550000 
01551000 
014552000 
01553000 
01554000 
01555000 
01556000 
01556500 
01856900 
014557000 


01558000 


014559010 
04559020 
01560000 
01561000 


01561056 


01561300 
01361400 


01561410 
01561420 
01561430 
01561440 
01361450 
01561460 
01961500 


01561600 
01561700 
01862000 


01563000 
01564000 


01865000 
01566000 


01366010 
01567000 


01568000 
01869000 
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0034 
0034 
0034 
0034 
0034 
0034 
0031 


0031 
0031 
0034 
0035 


0039 


0046 
0049 
0049 
0056 


0060 


0064 
0068 


0075 
0075 
0075 
0075 
0075 
0075 
0075 


0079 
0086 
0089 


0089 
0089 


0089 
0089 


0089 
0089 


0089 
0089 


PRTC221) 


PRT(222) 


PRT(223) 
PRT(224) 
PRT(225) 
PRT(226) 
PRT(227) 
PRT(230) 
PRT(231) 


PRT(232) 
PRT(233) 
PRT(234) 


PRT(235) 
PRT (236) 
PRT(237) 
PRT(240) 


PRT(241) 


il 


LASTSEQROW =. 283 


REAL FOULEDS 


FOULED 
BOOLEA ' 
FUNCTOGs GOMMENT TELLS WHETHER PROCEDURE BEING DECLARED JS A 
FUNCTOG 
FUNCTIONS 
P2.s COMMENT GENERALY TELLS WHETHER OWN WAS SEEN3 
Pe 
P30 COMMENT TELLS WHETHER SAVE WAS SEENS 
P3 
VONF » COMMENT VALUE OR OWN FIELD OF ELBAT WORD; 
VONF 
FORMALF » COMMENT FORMAL FIELD OF ELBAT WORDS 
FORMALF : 
. PTOG»s COMMENT TELLS THAT FORMAL PARAPART IS BEING PROCESSD; 
PTOG 
SPECTOG, 
SPECTOG 
STOPENTRY»s COMMENT THIS MAKES THE ENTRY PROCEDURE ENTER ONLY 
STOPENTRY 
ONE IU AND THEN EIXT3 
AJUMP3 COMMENT TELLS WHETHER A JUMP IS HANGINGS 
AJUMP 
BOOLEAN STOPDEFINE; 
STOPDEF INE 
INTEGER MAXSAVE3 
MAXSAVE 
COMMENT THIS CONTAINS THE SIZE OF THE MAXIMUM SAVE ARRAY 
DECLAREOe IT TS USED TO HELP DETERMINE STORAGE RE@UIREMENTS 
FOR THE PROGRAM PARAMETER BLOCK FOR THE QBYECT PROGRAM3 
REAL 
KL ASSF » COMMENT CLASS IN LOW ORDER 7 BITS3 
KLASSF 
ADORSF » COMMENT ADDRESS IJIN LOW ORDER 11 BITS; 
ADDRSF 
LEVELF » COMMENT LVL IN LOW ORDER 5 BITS 
LEVELF 
LINKFs COMMENT LINK IN LOW ORDER 13 BITSS 
LINKF 
INCRF es COMMENT INCR CN LOW ORDER 8 BITS; 
NCR 
: 3 PROINFO? COMMENT CONTAINS ELBAT WORD FOR PROCEDURE BEING 


94370000 
01971000 
01872000 
015973000 
01574000 
01575000 
01576000 
013977000 
01978000 
01379000 
01580000 
041981000 
01382000 
01983000 
01583100 


01584000 
01385000 
01986000 


01887000 
019868000 


01589000 
01590000 


a Le eee 


+4 
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01591000 T 


01892000 
01993000 
01594000 


01595000 
01596000 


01597000 
01998000 
01399000 
01400000 
01601000 
01602000 
01603000 
01604000 
01605000 
01606000 
01607000 


01608000 


0089 
0089 
0089 
0089 
0089 
0089 
0089 
O089 
0089 
0089 
0089 
Q089 
0089 
0089 
0089 


0089 
0089 
0089 


0089 
0089 


0089 
0089 
0089 
0089 
0089 
0089 


0089 
0089 


0089 
0089 
0089 
0089 
0089 
0089 
0089 
Q089 
0089 
0089 
0089 
0089 


PRT(242) 


PRT(243) 
PRT(244) 


PRT(245) 


PRT( 246) 


PRT(247) 
PRT(250) 
PRT(251) 
PRT(252) 
PRT(253) 


PRT(254) 
PRT(255) 


PRT(256) 
PRT(257) 


a 


PROINFO 


G 
TYPEV 


PROADO 


MARK 


PJ 

ns) 
LASTINFO 
NEXTINFO 
FIRSTX 


SAVEL 


PR 


G» 


TYPEV>, 


QaDO»s 


MARK >» 


PJs 

Je 
LASTINFO>» 
NEXTINFOs 


FIRSTX» 


SaVEL3 


INTEGER NCIIG 


NCII 


DECLAREDS 


COMMENT GLOBAL TEMPORARY FOR BLOCK3 


COMMENT USED TO CARRY CLASS OF IDENTIFIER 


BEING DECLARED; 


COMMENT CONTAINS ADORESS OF PROCEOURE BEING 


DECLAREDS 
COMMENT 


CONTAINS INDEX INTO INFO WHERE FIRST WORD 


OF ADDITIONAL INFO FOR A PROCEDURE ENTRYS 


COMMENT 
COMMENT ARRAY COUNTER 
COMMENT 
COMMENT 


COMMENT 


3 


FORMAL PARAMETER COUNTER; 


INDEX TO LAST ENTRY IN INFOS 
INDEX FOR NEXT ENTRYIN INFOS 


RELATIVE ADD OF FIRST EXECUTABLE CODE 


IN BLOCKsINITIALIZED TO 4095 EACH TIME; 


COMMENT 
COMMENT 
ENTERED IN 


PROCEDURE UNHOOKSFORWARD3 


UNHOOK 


PROCEDURE MAKEUPACCUMSFORWARD; 


MAKE YPAC 


CUM 


DEFINE PURPTS=C4tB)#e SECRET HZ; 


COMMENT THESE DEFINES GIVE THE NAMES OF THE WORD MODE OPERATORS,» 
NUMBERS REFER TO THE APPROPRIATE SECTION OF THE PRODUCT SPECS, 


FU 
DEFINE 

ADD = 16%, 
BBC = 22k» 
BAW = 534%, 
BFC = 388, 
BFW = 550%» 
COC = 1688» 
CHS = 134%, 
COC = 40#>, 
COM = 1304» 
DEL = 10#» 
DUP s 261#>» 
EQL = 5814, 
LBC = 2788, 
LBU = 790%, 
GEQ = 214s 
LFC wm 2948» 

LFU = 806#>» 
GTR = 378? 
IOV = 3848, 


LL NAME $$ ALSO GIVENS 


COMMENT 
COMMENT 
COMMENT 
CUMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT( 2131) 
COMMENT(6131) 
COMMENT (0125 
COMMENT( 2231) 
COMMENT (6231) 

s) 

1 


(0101) 
(0131) 
(4131) 


™~ Oe 2 2@ OC C*® Ca © 2 @ 
wNWwWe 2 Bee WH Se 


CUMMENT (022 
COMMENT (300 


Twe & 


SAVE LOCATION FOR FIXUPS IN BLOCKS 
THIS CONTAINS THE COUNT OF CONSTANTS 
INFO AT ANY GIVEN TIMES 


THE 
THE 


AQ0D3 

BRANCH BACKWARD CONDITIONALS 
BRANCH BACKWARDS 

BRANCH FORWARD CONOITIONALS 
BRANCH FORWARD3 

GONSTRUCT DESCRIPTOR CALLS 
CHANGE SIGN; 

CONSTRUCT OPERAND CALLS 
COMMUNICATION OPERATORS 
DELETES 

DUPLICATES 

EQUALS 

GQ BACKWARD CONDITIONAL; 

GO BACKWARD (wORD)3 

GREATER THAN OR EQUAL TOs 
GO FORWARD CONOITIONALS 

GO FORWARD (WORD); 

GREATER TRANS — 

INTEGER OIVIDES 


01609000 
01410000 


01611000 


01612000 
01613000 


01816000 
01617000 


01618000 
01619000 
01620000 


01621000 


01622000 
01623000 


01624000 


04625000 
01626000 


01627000 


01628000 
01629000 
Q1630000 
01631000 
01632000 
01633000 
01634000 
01635000 
01836000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
01648000 
04649000 
01650000 
01651000 


4+ 44 
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Q089 
0089 


0089 


0089 
0vU89 


0089 
0089 


0089 
Q089 


0089 
0089 
Q089 
0089 


0089 
0089 


0089 


0089 
0089 


0093 


0093 
0093 
0093 
0093 
Q093 
Q093 
0093 
0093 
Q093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
Q093 


PRT(260) 
PRT(261) 


PRT(262) 


PRT(263) 
PRT(264) 
PRT(265) 
PRT(266) 
PRT( 267) 
PRT(270) 


PRT(271) 


PRT( 272) 


uudwna 


INX = 28> COMMENT (0141) 
ISD =a 5324s COMMENT (4121) 
ISN = 548#> COMMENT (4221) 
LEQ = 5338» COMMENT (4125) 
LND = 67%» COMMENT (0415) 
LNG = 198» COMMENT (0135) 
LOD = 2604» COMMENT (2021) 
LOR = 358» COMMENT (0245) 
LQv = 131%» COMMENT (1015) 
LSS = 549#, CQMMENT (4225) 
MKS = 72>» COMMENT (0441) 
MUL & 648» COMMENT (0401) 
NEQ = 698» COMMENT (0425) 
NOP = 118% COMMENT (0055) 
PRL = 18% COMMENT (0111) 
PRTE= 128+ COMMENT (006}) 
ROV s 896#> COMMENT (7001) 
RTN = 398» COMMENT (0235) 
RTS = 1678» COMMENT (1235) 
SNO a 1328s CUMMENT (1021) 
SSP = 58Q%» COMMENT (4431) 
STO 3s 68%» COMMENT (0421) 
SUB = 48#s COMMENT (0301) 
XCH m= 133%» COMMENT (1025) 
XIT = 74s COMMENT (0435) 
ZP1 2 322%, COMMENT (2411) 
SCy #10038» COMMENT ¢7655) 
SAN =100G#, COMMENT (7661) 
SCS ©£1019%3 COMMENT (7755) 
COMMENT THESE DEFINES ARE USED 
DEFINE 
DIA = 45%, COMMENT (XX55) 
DIB a 498, COMMENT (xX61) 
TRE = 53%} COMMENT (xxX65) 


REAL MAXSTACKsSTACKCTRS 


MAXSTACK 
STACKCTR 

INTEGER MAXROW3 
MAXROW 


704e10,2 
7049503 
704694 
Fedehed 
To4edel 
7 oe 3g4 
7e4eiOyl 
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BY EmMITO3 


Tedelel 
Tede7e2 
7049793 


INDEX 
INTEGER STORE DESTRUCTIVES 


INTEGER STORE NON@DESTRUCTS 


LESS THAN UR EQUAL TO} 
LOGICAL AND3 

LOGICAL NEGATES 

LOAD GPERATOR3 

LUGICAL ORs 

LOGICAL E@IVALENCES 
BESS THANS 

MARK STACK3 

MULTIPLY3 

NOT EQUAL TO3 

NO OPERATION} 

PROGRAM RELEASES 
EXTEND PRIS 

REMAINDER DIVIDE3 
RETURN NORMAL3 

RETURN SPECIALS 

STORE NON*DESTRUCTIVE3 
SET SIGN PLUS3 

STORE DESTRUCTIVES 
SUBTRACT: 

EXCHANGES 

EXIT; 

CONDITIONAL HALTI 

SCAN OUT INITIALIZES 
SYSTEM ATTENTION NEEDEDS 
SCAN OUT STOP; 


DIAL A; 
DIAL BS 
TRANSFER BITSS 


COMMENT THIS CONTAINS THE MAXIMUM ROW SIZE OF ALL NON®@SAVE 


ARRAYS DECLARED, 


ITS USE ITS LIKE THAT OF MAXSAVES 


INTEGER SEGSIZEMAXS COMMENT CONTAINS MAX SEGMENT SIZE3 


SEGSIZEMAX 
INTEGER F3 
F 


REAL NLOsNHT eo TLOs THIS 


NLO 
NHI 
TLO 
THI 


BOOLEAN DPTOGs 


OPTOG 


COMMENT 


BOOLEAN DOLLAR2TOG3 


DOLLAR2TOG 
DEFINE FZEROS896843 


REAL TisT2@sNeKs AKKUNMG 


THE ABOVE TRINGS ARE TEMP STORAGE FOR DOUBLE NOS; 


01652000 
01653000 
01684000 
01655000 
01686000 
01637000 
01858000 
01639000 
04660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670900 
01671000 
01672000 
01673000 
01474000 
01675000 
04676000 
01677000 
014677050 
01677100 
04677150 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 


01084000 
01685000 
01686000 
01687000 


01688000 
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4-4-4 4 


~ 


01689000 T 


01690000 


01691000 
01691500 


01692000 
01893000 


Se | 


0093 
0093 
0093 
0093 
Q093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 
0093 


0093 
OU93 
0093 
0093 
0093 
0093 


0093 


0093 
0093 


0093 
0093 


PRT(273) 
PRT (C274) 
PRT(275) 
PRT(276) 
PRT(277) 
PRT(¢300) 
PRT(301) 


PRT(302) 


PRT(303) 
PRT(304) 


PRT( 305) 
PRT( 306) 


PRT(307) 
PRT(310) 
PRT(311) 
PRT(312) 
PRT(313) 
PRT(314) 
PRT(315) 
PRT( 316) 
PRT(317) 
PRT(320) 


PRT(321) 
PRT(322) 


H#aqunynun 


Ti 
T2 
N 
K 
AKKUM 

BOOLEAN STOPGSP3 
STOPGSP 

INTEGER BUPR3 
BUP 

BOOLEAN INLINETOGS 
INLINETOG 

COMMENT UNTQUE GLOBAL TEMP FOR BLOCKS 

ARRAY GTALCORIO); 
GTA 

BOOLEAN ARRAY SPRT(0831]73 


SPRT 1S TO BE CONSIDERED To BE AN ARRAY OF 32 32 BIT 
FIELOSe THE 32 BITS ARE IN THE LOW ORDER PART OF EACH 
WORDe THE BIT IS ON JF AND ONLY JF THE CORRESPONDING 
PRT CELL HAS A PERMANENT ASSIGNMENTS 

INTEGER PRTI»PRTIMAXS 


COMMENT 


PRTI 
PRTIMAX 
COMMENT PRTIMAX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN 
MENTe PRTI GIVES NEXT PRT CELL POSSIBLY aVAILABLE FOR 
TEMPORARY ASSIGNMENT} 
DEFINE ALPHASIZE = (01286]%3 COMMENT ALPHASIZE IS THE DEFINE FOR TRE BIT 
POSITION IN THE SECOND WORD OF INFO WHICH 
CONTAINS THE LENGTH OF ALPHA} 
DEFINE EDOCINDEX & Kel 3683) eLe039873%3 COMMENT EDOCINDEX IS THE WORD 
PORTION OF | SPLIT INTO A RUW ANO 
COLUMN INOEX FUR EDOC3 
COMMENT SEE COMMENT AT CPLUS2 DEFINES 
COMMENT CPLUS1 AND CPLUS2 ARE EXPLICIT CONSTANTS 
USED IN THE GENERATION OF CRRELATIVE CODE 
PROCEDURE FLAGCERRNUM)S VALUE ERRNUMS JNTEGER ERRNUMS FORWARD} 


DEFINE cCPLUSI = 769%3 
DEFINE cPLUS2 # 77083 


FLAG 
ALPHA PROCEDURE B20(B)s VALUE 64 REAL BS FORWARDS 
B20 
REAL PROCEDURE TAKECW)4 VALUE WA INTEGER Ws FORWARD; 
TAKE 
BOOLEAN MACROID3 
MACROID 
REAL PROCEQURE FIXDEFINEINFOCT)4 VALUE T3 REAL T3 FURWARD 
FIXDEFINEINFO 
PROCEDURE ERR CERRNUM)S VALUE EKRNUMS INTEGER ERRNUMS FORWARDS 
ERR 
INTEGER PROCEDURE GITCL2S VALUE Ls REAL L3 FORWARDS 
GIT 
ARRAY CALLALO831208255)3 
CALLA 
DEFINE CALLEICALLAIBCALLACCGT3CCALLI 2 eLINKRe GTI eLINKCIBS 
REAL CALLXsCALLINFOsNESTCTR»NESTCURS 
CALLX 
CALLINFO 
NESTCTR 
NESTCUR 


01694000 


01695000 
01695500 


01696000 
01697000 


01698000 


01699000 
01700000 
01701000 
01702000 
01703000 


01704000 
01705000 
01706000 
01707000 
01708000 
01709000 
01710000 
01711000 
01712000 
01713000 
01714000 
04715000 
01716000 


01717000 
01717700 
01717600 
01717900 
01718000 
01719000 
01720000 


01721000 
O1F22000 


Aa tt 


_~ 


++ + = 


0093 


0093 
0093 


0093 
0093 


0095 


0098 
0098 
0098 
0098 
0098 


0098 
0098 
00986 
0U98 
0098 
0098 
0098 
0098 
0096 
0098 
0098 
0098 
0098 


0098 
0098 
0098 
0098 
0098 
0098 
0098 


0100 
0100 


PRT(323) 
PRT(324) 


PRT(325) 


PRT(326) 


PRT(327) 


PRT(¢330) 


PRT(331) 


it 


BOOLEAN NESTOG; 


NESTOG 
ARRAY NESTPRICPRTIBASESPRTQP)3 
NESTPRT 
ARRAY SORTPRICOSPRTOP*PRTIBASE)3 
SORTPRT 
COMMENT “BLANKET” BLANKS OUT N#i WORDS IN "THERES 


STREAM PROCEDURE BLANKETCNs THERES VALUE N3 
BLANKET 
BEGIN 
DIteTHERES OSteS LIT" "3 STSSTHERES DS35N WOS3 


END BLANKETS 


STREAM PROCEDURE CHANGESEQC(VAL*sOLDSEQ)3 VALUE OLDSEQS 


CHANGESEQ 


BEGIN DItsQLDSEQs SIt=VALs OSts8 DEC END CHANGESEQS 


STREAM PROCEDURE SE@UENCEERROR(L 23 


SEQUENCEERROR 


BEGIN Oltats Dot516 LIT"SEQUENCE ERROR "3 END SEQUENCEERRORS 


STREAM PROCEDURE GETVOIOCVPsNCReLCReSEQ)# VALUE NCReLCR3 


GETVOID 
BEGIN 
LABEL Le EXITS 
LOCAL N3 
SIteaNCrRs OLIsVPS OSB LIT "0"; 
2C34CIF SCa" " THEN SItwST¢1 ELSE JUMP OUT 2 TO L))3 
GQ TO EXIT; % NO VOID RANGE GIVENs RETURN ZERO, 
L8 


IF SCa"x" THEN GO TO EXITS 
IF SCa"@" THEN 
BEGIN 
STssS]¢1s QItayCRs OSt21 LIT"""S & STOPPER FOR SCAN 
NCRS#SI3 & TEMPe STORAGEs SINCE NCR IS *"LOCAL” TO GETVOID. 
BCIF Sc3P"" THEN JUMP OUT ELSE 
BEGIN TALLYS@TALLY@is SIs*SI41 END); 
END 


ELSE BEGIN 
NCR&S2S]T# %& TEMP, STORAGEs SINCE NCR IS "LOCAL" TO GETVOID. 
DI$SLCR3 DStei LIT" "J & STOPPER FOR SCAN 
BCIF SCa" " THEN JUMP OUT ELSE 

BEGIN TALLYS#TALLY¢13 SIs*S1#1 END); 

ENDS 

SItSNCR3 OLU=VP3 DIIZDI483 %® RESTORE POINTERS, 

NEBTALLYS DIESDI“NS OSESN CHR} 

EXIT! 


% STILL NO RANGEe 


01723000 
01724000 
O1F 25000 


01726000 
01737300 
01737350 


01737400 
01737450 
01737500 


01#41200 


01#41300 


01742100 


014742110 


01756000 


QiF57000 
01758000 
01759000 
01761000 
01#62000 
01763000 
01764000 
01764500 
01765000 
01766000 
01767000 
01768000 
012769000 
01770000 
01771000 
04772000 
01#73000 
01774000 
01775000 
01776000 
04777000 
01780000 
01781000 
01782000 


ae 


=" 


AMA HHH HHH to st st st st 


0100 
0100 
0103 


0107 
0107 
0107 


0107 
0108 
0110 


0110 


0110 


Olle 


Q112 


Oila 


0114 
0115 
0115 
0115 
0116 
0119 
0119 
Q119 
0120 
0123 
Ole4 
0i22 
0423 
0124 
0126 
0126 
0126 
0126 
0127 
0ies 
0130 
0130 
0130 
0132 


END OF GETVOIDS 


REAL VOITOCRsVOIDPLACE sVULOTCReVOLIOTPLACES 


PRT(332) = VOIOcR 
PRT(333) = VOIDPLACE 
PRT(334) = VOIOTCR 
PRT(335) = VOIODTPLACE 
FORMAT 
BUGOCX2404(CAUgX2))3 
PRT(336) = BUG 
PROCEDURE DATIME3 
PRT(337) 3 DATIME 
BEGIN 
INTEGER He MINs Qs ALPHA NisN2s 
STACKCF 42) = H 
STACK(F 43) = MIN 
STACKCFe4) # Q 


STACK(F 45) = Ni 
STACK(F 46) 3 N2 
ALPHA STREAM PRUCEDURE DATERCOATE)3 VALVE DATES 
PRTC340) = DATER 
BEGIN 
DIs*sLOC DATERS SItelOC VATES SIt=S] 423 
2COS#s2 CHRS OStsuIT"/")s OSte2 CHR} 
END OF DATER; 


HisTIME1 DIV 2160003 MINtsCTIMEL DIV 3600) MOD 603 
NLiMSDISKeMFIDS N2Sa0ISkKeFIOS 
WRITECLINE® 
<X22e"BURROUGHS B*5700 ESPOL CUMPILER MARK "ss 
PRT(341) = “FORMAT DESCRIPTOR®* 
"XV1_0.00" 
a MpAGS™DAYe "p0o so “es T2a"E™sAQeX ie ASe 
SISSXBS SAL AG a™/ pA a AS e/XA5 a SCM" //>e 


TIMECO)*DATERCTIMECS ) Je 12xREALCQIaH MOD 1280 )+Q» 
OR SEGMENT DESCRIPTOR* 

QteMIN MOD 1O4(MIN DIV 10) x64 

IF Hate THEN "PM." ELSE "AM,Me 

NL elLOSOJoNieN2,CO86IsN2)3 


PRTC342) 3 *LIST» LABEL,» 


PRT(343) = QUTPUTCW) 
NOHEADINGSSFALSES 
END OF DATIME3 


COMMENT THIS SECTION CONTAINS ALL CODE PERTAINENT TO READING CARDS 


START OF SEGMENT 


4 18 


01784000 f 0132 
017835000 T O132 
01800000 T 0432 
01802000 7 0132 

wk en 

8 LONG» NEXT SEG 
01820000 fT 0132 
01821000 T 0432 
01822000 T 9132 


START OF S&GMENT 


01823000 


01824000 
01825000 
01826000 
01827000 


01828000 
01828500 
01829000 
01830000 


01831000 


01832000 
01832500 


4Q LONG 


01833000 


01834000 
04835000 
01835500 


01836000 
01837000 


$8 LONG 


02000000 


week ke eeke 


Se a ee i i | 


we 4-4 


T 


0000 


0000 
0000 
0000 
0002 


0003 
0007 
0013 
0015 


0015 
00145 
0015 
NEXT SEG 
0016 


0032 
0036 
0043 


0053 
0054 
NEXT SEG 


0132 


3 


5 


3 


AND SCANNING THEM} 
COMMENT OCTIZE REFORMATS ACCUM FOR OCTAL CONSTANTS 
BOOLEAN STREAM PROCEDURE OCTIZECS»#DsSKPaCNT)$ VALUE SKPeCNTS 
PRT(344) = OCTIZE 
BEGIN 
STteSs STtsSlo4s DI'203 SKPCUSIS3 RESET)S ®% RIGHT JUSTIFY, 
CNTCIF SC2"@" THEN TALLY$#1 ELSE IF SC<"0" THEN TALLY3313 SKIP 3 SB3 
3CIF Sg THEN DStS3SET ELSE OS##RESETS SKIP SBH))3 
SI%s03 IF SB_ THEN 
BEGIN TALLY8s13 DJ teDs OSteRESET ENDS % PREVENT FLAG BITe 
OCTIZESmTALLYS & "1" w@ NON OCTAL CHARACTER OR FLAG BITe 
END OCTIZES 


COMMENT HEXIZE REFORMATS ACCUM FOR HEXADECIMAL CONSTANTS3 
BOOLEAN STREAM PROCEDURE HEXIZE(Ss0,SKP,CNT)3 VALUE SKP,CNT3 
PRT(345) ® HEXIZE 
BEGIN 
COMMENT 


LOCAL Ti» T2eTEMP2sTEMP13 LABEL AGING 
LOCAL VARIABLES ARE LOCATED IN REVERSE ORDER FROM THE 
WAY THEY ARE DECLARED IN STREAM PROCEDURESS 
OIseL QC TEMPL3 CNTCOSsaLI1"1")3 & IN CASE A CHARSAsbeCoDeOR Fy 
SitmS} SIssSl43s DIt=L0C TEMP1s % WE MAY OVERFLOW INTO TEMP2, 
CNTCIF SC<"O" THEN IF SC2"A" THEN IF SCS"F" THEN % WORK HARD. 
BEGIN 
Tit=S[s T2tmD1s OlteTlLs SLb=T23 &% FLIPs MANe 
OSte3 RESETS SJt=T43 OltsTos % FLIP BACK, 
OSt=1 ADDS DIts0l"13 SKIP 2 DBs; DSt=1 SETS SkIP 3 OB 
GO AGIN3 
ENDS 
IF SC<"O" THEN TALLY:®1% DSESCHRS % < 0 = NON®HEX CHARACTERs 
AGINE 
3 
STtsLOC TEMP43 DIss0s SKP(DSt84 RESET)$ % RIGHT ADWUST CONSTANT, 
CNT(SKIP 2 SB3 
QCIF SB THEN DS#sSET ELSE DSt=RESETS SKIP SB))3% FINAL CONVERT. 
SIts03) If SB THEN 
BEGIN TALLY$#15 OI8s0s DS$SRESET ENDS % PREVENT FLAG BIT 
HEXIZEtsFALLY3 % "1" IF PROGRAMMER GOOFEDs 
END HEXIZES 


PUTSEQNO PUTS THE SEQUENCE NUMBER OF THE CARO@[ MAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
IT IS NEEDED FOR FUTURE REFERENCE; 

STREAM PROCEBURE PUTSEQNOCINFOsLCRI3 VALUE LCRS 
PRT(346) = PUTSEQNO 


COMMENT 


BEGIN DItaINFO# SISSLCR3 DStzwOSs END PUTSEQNO; 


TURNONSTOPLIGHT TURNS THE LIGHT "RED" ON THE "CORNER™, 
TeEes THE PURPOSE OF THIS ROUTINE IS TO INSERT A PER@ 


COMMENT 


02001000 
02001636 
02001838 


02001840 
02001842 
02001844 
020016846 
Q#001848 
02001850 
02001852 
02001654 


02001856 
02001858 


02001860 
02001862 
02001864 
02001866 
02001868 
02001870 
02001872 
02001874 
02001876 
02001878 
02001880 
02001882 
02001884 
02001686 
02001888 
02001890 
02001892 
02001894 
02001895 
02001896 
02001897 
02001898 


02002000 


02003000 
02004000 
02005000 


02006000 


02007000 
02008000 


444 


tt tt te 


~ 


AA HHH HoH to to ot Ho 


~~ +m 


0432 
0132 
0132 


0132 
0133 
01435 
0138 
0140 
01414 
0142 
0142 


0143 
0143 


0243 
0144 
0144 
0144 
0146 
0146 
0150 
0150 
0151 
0152 
0153 
0154 
0154 
0155 
0155 
0155 
0157 
0158 
0160 
01614 
0162 
0163 


0164 


0164 
0164 
0164 


0464 


0165 
0165 


PRT(347) 


PRT(350) 


PRT(351) 


PRT(352) 


PRT(353) 


CENT SIGN IN COLUMN 73 AS AN END OF CARD SENTINEL FOR 
THE SCANNERS 
STREAM PROCEDURE TUKNONSTOPLIGHTCRED*sCORNER)S VALUE REDsCORNER} 
TURNONSTOPLIGHT 
BEGIN DIssCORNGRS STs*#L0C CORNERS SIssSIe1s OStsCHR END} 


COMMENT WRITNEW TRANSFERS THE CARD IMAGE TO THE NEWTAPE BUFFER 
AND REPORTS IF THE CARO MIGHT BE CONTROL CARD} 
BOOLEAN STREAM PROCEQURE WRITNEWCNEWSFCR)S VALUE FCRS 
WRITNEW 
BEGIN SI ¢ FCRé IF SC #4 "$" THEN TALLY © 13 
DI*NEWIDS*10 WOSS 
WRITNEW ¢ TALLY END WRITNEWS 


COMMENT MKABS CONVERTS a DESCRIPTOR TO AN ABSOLUTE AQORESS; 
REAL STREAM PROCEDURE MKABS(A)3 
MKABS 
BEGIN OF © As’ MKABS © DI END MKABS3 


REAL STREAM PROCEDURE CONVCACCUM*SKPoN)Z VALUE SKPoNS 


CONV 
BEGIN 


STe ACCUMS SIT*SI+#SKPZ 5 TeSIT+3501¢L0C CONVAUS¢N OCT 


ENDS 


STREAM PROCEDURE MOVECHARACTERS(CNeSORCE sSSKIPSDESTsDOKIPDS 
MOVECHARACTERS 
VALUE NeSSKIPsOSKIP; 
BEGIN 
SIT*SORCE 3 DIeOEST3 
STeSI¢SSKIPS OL1¢ DI*eDSKIP 3 
DS ¢ N CHR 3 
ENO ji 


COMMENT MOWECHARACTERS MOVES N CHARACTERS FROM THE SSKIP*TH CHAR IN 


"SORCE" TO THE OSKIP*TH CHAR IN "DEST", 3 
STREAM PROCEDURE MOVECW)"WORDS FROM"CA)"TO"(B)3 VALUE WS 


PRT(354) = MOVE 


BEGIN SIT ¢ AS} OF © BS DS © W WOS ENDS 


02009000 


02010000 
02011000 


02012000 


02014000 
02015000 
02016000 


02017000 
02018000 
02020000 


02021000 
02022000 


02023000 


02041000 


02042000 
02043000 
02044000 


02045000 


02046000 
020467000 
02048000 
02049000 
02050000 
02051000 


02052000 


02053000 
02054000 


02055000 


444 


SS ee 


44-4 


| 


4-4 


0165 


0165 
0165 


0165 


0166 
0166 
0166 


0166 
0166 
0168 


0169 
0169 


0169 


O74 


O174 
Q172 
0173 


Ol74 


0174 
0174 
0175 
0175 
0176 
0177 


0177 


0477 
0177 


0177 


STREAM PROCEQURE RESIZECFIEL)S 


PRT(355) = RESIZE 


PRT(356) 


PRT(357) 
PRTC 360) 
PRT (361) 
PRT (362) 


BEGIN LOCAL T3 

SI@#FIELJ DI*LOC Té OSewOS; 
SITeTJDICFIELJDIeDI+1s SKIP 2 DBs OS"10 SET 
ENO3 


EQUAL COMPARES CQUNT CHARACTERS LOCATED AT A AND B FOR 
EQUALITYe THIS ROUTINE IS USED IN THE LOQKSUP OF ALPHA 
QUANTITIES IN THE DIRECTORY; 

BOOLEAN STREAM PROCEDURE EQUAL(CUUNT#A»B)3 VALUE COUNTS 
EQUAL 


COMMENT 


BEGIN 

TALLYS313 SItHAS DIS=B3 

IF COUNT SCaDC THEN EQUAL?#TALLY 
ENB EQUAL3 


PRACEDURE READACARDs FORWARD; 
READACARD 

PROCEDURE DOLLARCARD} FORWARD} 
DOLLARCARD 

BOOLEAN PROCEDURE BOOLEXPs FORWARD; 
BOOLEXP 

PROCEDURE SCANNERS 
SCANNER 

BEGIN 

COMMENT "SCAN" JS THE STREAM PRUCEDURE WHICH DOES THE ACTUAL SCANNING, 
IT IS DRIVEN BY A SMALL WORD MODE PROCEDURE CALLED "SCANNER"> 
WHICH CHECKS FOR A QUANTITY BEING BROKEN ACRUSS A CARDe "SCAN" 
1S GONTROLKED BY A VARIABLE CALLED "RESULT", "SCAN" ALSO 
INFORMS THE WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE. 
HENCE THE VARIABLE "RESULT" IS PaSSED BY BOTH NAME AND VALUE, 
THE MEANING OF "RESULT" AS INPYT IS? 


VALUE MEANING 
Sseaz BSSRBSPTHSBS SS SSsSrssessseTtersrsrssasesses2 

0 INITIAL CODE = DEBLANK AND START TQ FETCH THE 
NEXT QUANTITY. 

i CONTINUE BUILDING AN IDENTIFIER CINTERRUPTED BY 
ENOTOF*CARO BREAK), 

2 LAST QUANTITY BUILT WAS SPECIAL CHARACTER, HENCEs 
EXIT CINTERRUPTION BY END®*OF "CARD BREAK IS NOT 
IMPORTANT), 

3 CONTINUE BUILOING A NUMBER CINTERRUPTED BY END@-OF= 
CARD BREAK)« 

4 LAST THING WAS AN ERROR (COUNT EXCEEDED 63)— HENCE, 
EXIT CINTERRUPTION BY END*OF "CARD BREAK NOT 
IMPORTANT). 

5 GET NEXT CHARACTER AND EXIT. 

6 SCAN A COMMENT, 


7 DEBLANK ONLY, 
THE MEANING OF "RESULT" AS OUTPUT IS8 


02056000 


02057000 
02058000 
02059000 
02060000 


02061000 
02061500 
02062000 
02062500 


02063000 
02063500 
02064000 
02064500 


02065000 
02065500 
020653600 
02066000 


02066500 
02067000 
02667500 
02068000 
02068500 
02069000 
02069500 
02070000 
02070500 
02071000 
02073500 
02972000 
02072500 
02073000 
02073500 
02074000 
02074500 
02075000 
02075500 
02076000 
02076500 
02077000 
02077500 
02978000 
02078500 
02079000 


—_ 


ee) 


AHHH HM HAA st ta tt 


0179 


0179 
0180 
0180 
0482 


0182 
0182 
0182 
0162 


0382 
0183 
0163 
0164 


0185 
0185 
0185 
0185 


0485 
0185 
0165 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0185 
0188 
0165 
0185 
03785 
0185 
0185 
0185 
0185 
0185 
0185 


VALVE MEANING 02079500 T 0185 

gBEaztt RAISBROESSBSTSSSSSSSSSSFTCeKxsBsStsesserseseetsesezzs 02080000 T 0185 

i AN IDENTIFIER WAS BUILT, 02080500 yt 0185 

2 A SPECIAL CHARACTER WAS OBTAINEDs 02081000 Tf 0165 

3 A NUMBER CINTEGER) WAS BUILT, 02081500 FT 0185 

MSCAN" PUTS ALL STUFF SCANNED CEXCEPT FOR COMMENTS AND 02082000 7T O185 

DISCARDED BLANKS) INTO "ACCUM" (CALLED "ACCUMULATOR" 02082500 T 01865 

FOR THE REST OF THIS DISCUSSION). 02083000 T 0185 

"COUNT" IS THE VARIABLE THAT GIVES THE NUMBER OF CHARACTERS 02083500 T O85 

"SCAN" HAS PUT INTO THE "ACCUMULATOR", SINCE "SCAN" NEEDS 02084000 T 0185 

THE VALUE SO THAT IT CAN PUT MORE CHARACTERS INTO THE "ACCUM@ 02084500 fT 0185 

ULATOR® ANDO NEEDS TO UPDATE "COUNT" FOR THE OUTSIOE WORLD» 02888000 fT 0185 

“COUNT” ITS PASSED BY BOTH NAME AND VALUE. IT IS ALSO 02085500 T 0188 

CONWENTENT TO HAVE C63"COUNT)« THIS IS CALLED "COMCUUNT", 02086000 T 0185 

"NCR CNEXT CHARACTER TQ BE SCANNED) IS ALSO PASSED BY 02086500 y 0185 

NAME AND VALUE SO THAT JT MAY BE UPDATED, 02087000 T 0185 

"STi" AND "ST2" ARE TEMPORARY STORAGES WHICH ARE EXPLICITLY 02087500 T O185 

PASSED TO "SCAN" IN QROER TQ OBTAIN THE MOST USEFULL STACK 029868000 T 0185 

ARRANGEMENT. 02088500 T 04385 

; 02089000 y 0185 

STREAM PROCEDURE SCANCNCRsCOUNTV*ACCUMsCOMCOUNTSRESUL TARESULTVe 02089500 T 0185 
START OF SEGMENT sextet ete 

PRT(363) * SCAN 

COUNTs ST@sNCRVST1)3 02090000 T 0000 

VALUE COUNTVs» COMCQUNT*RESULTVsST2sNCRV*ST13 02090500 T 0000 

BEGIN 02091000 tT 90000 

LABEL QDEBLANKsNUMBERSs JOBLORsGNCoKeEXIToFINIS#Ls ERRURs 02091500 Tt 90000 

COMMENTS*COMMANTS# 02092000 y Q000 

DISSRESULTS DISFDI 474 SISBNCRV; 02092500 T 0000 

COMMENT SETUP "DI" FOR A CHANGE IN PRESULT® AND "SI"? FOR A LOOK AT 02093000 tT 0000 

THE BUFFERS 02093500 T 0000 

CI eaClLeRESULTV: ® SWITCH ON VALUE OF RESULT 02094000 TF 0000 

GO DEBLANKA % O TS INITIAL CODE. 02094500 7 90014 

GO IOBLOR: % 1678 10 COODEe 02095000 fT 0001 

GO FINIS3 2 2 18S SPECIAL CHARACTER CODE, 02095500 T 0001 

GO NUMBERS % 3 IS NUMBER CODE. Q2096000 T 0002 

GO FINIS3 % 4 IS ERROR CODE, 02096500 tT 9002 

GO GNC3 5 1S GET NEXT CHARACTER CODEe 02097000 T 0002 

GO COMMANTS3 % 6 TS COMMENT CODE. 02097500 T 0002 

% 7? ITS DEBLANK ONLY CODE, 02098000 T 0003 

IF SCs” “ THEN 02098500 7 0003 

K% BEGIN SIlt=SIl¢43 IF SCa" " THEN GO K END; 02099000 T 0003 

GO FINIS3 02099500 T 0005 

DEBLANKs 02100000 ft 0005 

IF SCa® " THEN 02100500 rT 0005 

L 8 BEGIN SIsaSie1s; JF Sc="™ * THEN GOL ENDS 02101000 T 0006 

COMMENT IF WE ARRIVE HERE WE HAVE a NON®BLANK CHARACTERS 02101500 7 0008 

NCRV#taST3 02102000 fT 0008 

Ir SC 2 "0" THEN GQ NUMBERS; 02102500 T 0008 

IF SCwALPHA THEN GO JOBLOR3 02103000 Tt 0009 

COMMENT IF WE ARRIVE HERE WE HAVE A SPECIAL CHARACTER (OR GNC)3 08103500 y 0009 

GNC3 02104000 T 0009 

DSseLIT*2"s TALLY tuys SItsSi+is GO EXIT; 02104500 T 0009 

COMMANTS$ 02105000 T 0014 

IF SC#*5" THEN 02105500 T 0014 

BEGIN 02106000 T OQ12 

COMMENTS!$ 02106500 T O012 


COMMENT 


IOBLOR! 


ERROR$ 


COMMENT 
NUMBERS? 
PRT(364) = *LIST»s LABEL, 


EXITS 


COMMENT 
COMMENT 


COMMENT 
FINISS 


PRT(365) = *LIST» LABEL, 


STtaSle 3 

IF SC > "&" THEN GU COMMENTS3 

IF SC < "5" THEN GU COMMENTS; 
CHARACTERS BETWEEN % AND SEMICOLON ARE HANOLED BY WORD® 
MODE PART UF COMMENT ROUTINES 

END) 
GO FINIS3 


TALLY82633 DSISLIT "4"5 
COMCOUNTCTALLYS4TALLY412 


IF SCSALPHA THEN SItmS]41 ELSE JUMP UUT TO EXIT)3 


TALLY S@eTALLY413 
IF SCaALPHA THEN 
BEGIN 


DItzOTeis OStHelL IT "4"3 GO EXITS 

END 
ELSE GO EXITS 
IF wE ARRIVE AT ERROR WE HAVE MORE THAN 63 CHARACTERS 
IN AN IDENTIFIER OR NUMBERS 


TALLY$5635 DSSSLIT "35 
OR SEGMENT DESCRIPTOR* 
COMCOUNTCTALLYSSTALLY O33 
IF §C <"O" THEN JUMP OUT TO EXITS SIP*S141)3 
GO ERROR} 


ST¢SSTALLYS & "STg" CONTAINS NUMBER OF CHARACTERS WE ARE 
% GUING TO MOVE INTO THE "ACCUMULATOR". 

TALLY SSTALLYS+COUNTVS ST@t=TALLyYs 

DItsCOUNTS SI8sLOC ST2s DSt=wos3 

THIS CODE UPDATED "COUNTS 

DISSaCccUMS STISST"33 OS#S3 CHR; 

THIS CODE PLACES "COUNT" IN “ACCUM” AS WELLS 

DrssDT4+COUNTVS &% POSITION "DI" PAST CHARACTERS ALREADY 

& IN THE "ACCUMULATOR"»s IF ANYe 
STtancCrRvs DStaSTy CHR 
MOVE CHARACTERS INTO “aCCUm't3 


DISeNCRI STLESSTS ST#s_LOC ST13 OStawds; 
OR SEGMENT DESCRIPTOR* 


COMMENT RESET *NCR" TO LOCATION OF NEXT CHARACTER TO BE SCANNED3S 
END OF SCANS 
LABEL L3% 
L3 


SCANCNCRe COUNT* ACCUME 4) 263"*CUUNT*RESULT? 


RESULT» COUNT» O*NCRs0)3 


IF NCR&LCR THEN 


BEGIN 

READACARD3 

GO TO Ls & GO OIRECTLY TO &. DO NOT PASS GO» 
% DO NOT COLLECT $200, 

ENDS 


021407000 
02107200 
02108000 
02108500 
02109000 
02109500 
02110000 
02110500 
02111000 
02111500 
02112000 
02112500 
02113000 
02113500 
02114000 
02114500 
08135000 
02115500 
02116000 
02116500 
02117000 
02117500 


02118000 
02118500 
02119000 
02119500 
02120000 
08120500 
02121000 
02@121500 
02122000 
02122500 
02123000 
02123500 
02124000 
02124500 
02125000 
02125500 
02126000 


02126500 
02127000 


02127500 


02128000 
02128500 
02129000 
02129500 
08130000 
08130500 
028135500 
08136000 
02136500 


AM tt Ht tt st tt 


st a at a tt ss st st ot 


4-4 


Se ee 


00143 
0013 
0014 
OU14 
0014 
0014 
0014 
0015 
0015 
Q015 
0017 
0048 
OU19 
0019 
00149 
0020 
0024 
0024 
0021 
0021 
0021 
0021 


0022 
0024 
Qve5 
0025 
0025 
0026 
0026 
0027 
0027 
0027 
0028 
0028 
0029 
0Ua9 
0029 
0029 
0029 


0031 
0034 


0031 


0034 
0030 
0034 
0036 
0037 
0037 
0038 
0038 
0038 


END SCANNERS 


DEFINE WRITELINE & UF SINGLTOG THEN WRITECLINES15e¢LINC*)) 
ELSE WRITECLINECDBLIJsLSeLIN(#) es 
PRINTCARD # BEGIN 


RBDITLINECLINe FCRe lk DIV Sab efLO6t2)s>MEDIUMsOMITTING)3 


te aaa THEN DATIMES WRITELINES 
t 
STREAM PROCEDURE EDITLINECLINEsNCRoRoL e+ SYMBOL*OMIT)S 
PRT¢366) # EOITLINE 
VALUE NCReReLeSYMBOLsOMITS 
BEGIN 
Ol :* LINES OS &3 16 LIT % 5 
SI 32 NCRS DS %$% 9 WDS3 
OS :* 8 LIT " "3 
DS := WOS3 & SEQUENCE NUMBERe 
OSt=eLIT" "3 ST*aLOC SYMBOLS SI seST +6} 
DSt=z2 CHRS OSIteLIT" "3 
ST*¢LOC R3’ DSe4 DEC 
ST*LOC Ls DSel DECI 
OS¢6 LIT * "3 
OMITCOIssDye12s OSteB LIT" 
END EDITLINES 


OSeLIT "a5 


OMIT"™)5 


COMMENT COMPARE COMPARES SEQUENCE NUMBERS OF TAPE AND CARDe IF 
TAPE IS SMALLER THEN RESULT = 0 ELSE IF CARD IS SMALLER 
RESULT = 1 ELSE RESULT * 23 
REAL STREAM PROCEDURE COMPARE(TAPEsCARD)3 VALUE TAPE» CARD} 
PRT(367) = COMPARE 
BEGIN 
SI :3 TAPES OI &% CARD; 
IF 6 SC 2 DC THEN 
BEGIN 
SI] ta SIle8s DOI $e DleBs TALLY 48% 413 
IF 8 SC * OC THEN TALLY 82 2 
END3 
COMPARE #& TALLY 
END COMPARE3 


PROCEDURE OQUTPUTSOURCES 
PRTC370) = OUTPUTSQURCE 
BEGIN 
LABEL LCARDs LTAPE sAWAY3 


SWITCH SWESLCARDe_LCARDsL TAPE* AWAY sLCARDsL TAPES 
IF SEQTOG THEN % RESEQUENCING, 
BEGIN 


02137000 fT 0038 
7 15 39 LONGs NEXT SEG 
02181000 fT 0185 
02181250 T O185 
02182500 T 0185 
02182750 7 0185 
02183000 fT 0185 
02183250 T 0185 
02183500 T 0185 
02183750 T 0185 
02184000 T Q1685 
02184250 T 0186 
02184500 T 0166 
02184750 T 0189 
02185000 Y 01490 
02185250 T 0190 
02185500 T O191 
02185750 T O82 
02186000 T 0193 
02186250 T 0193 
02186750 T 0194 
02187000 Tt 9197 
08187250 T 0197 
02187500 T 0197 
02187750 T 0197 
02188000 T 0197 
02186250 tr 0197 
02188500 T 0198 
02188750 T 0198 
02189000 T 0199 
Qa1e9250 T 0199 
02189500 T 0200 
02189750 F Q200 
02190000 T QO204 
02190250 7 O20,1 
02190500 T OQ202 
02190750 T O202 
02191000 T 0202 
START OF SEGMENT «se tkeoews 
02191250 T 0000 
02191500 T 0006 
02191750 T 0007 


3 


IF TOTALNO = ©10 OR NEWBASE THEN 


BEGIN. 
NEWBASE te FALSES GTIL#= TOTALNUS=BASENUM 
END 
ELSE GTJ]1%@ TOTALNO%® TOTALNO + ADOVALUES 
CHANGESEQ(GTI1LOCR)3 


IF NERTOG THEN 
IF WRITNEWCLINSFCR) THEN WRITECNEWTAPEs10sLINEC ¥I25 
IF OMITTING THEN IF NOT LISTATOG THEN GO AWAYS 
GO SWCLASTUSEDI;3 
LCARD$ 
IF LISTER OR LISTPTOG THEN PRINTCARGS 
GO AWAY3 
LTAPES 
IF LISTER THEN PRINTCARDS 
a GO AWAY3 
AWAYS 
ENO OUTPUTSOURCES 


PROCEDURE READACARD3 
COMMENT READACARD READS CARDS FROM EITHER THE CARD READER QR THE 
TAPE MERGING AS REQUESTED AND CREATING A NEW TAPE AND 
LISTING IF REQUESTED. READACARD ALSU INSERTS A PERCENT 
SIGN AS AN END OF CARO SENTINEL IN COLUMN 73 AND SETS 
FCReNCReLCReTLORs AND CLCR3 
BEGIN 
PROCEDURE READTAPE; 


PRTC371) * READTAPE 
BEGIN 
LABEL ENDREADTAPE, EOFT3 


READ CTAPEs 105 TBUFFC*))CEQFTI; 
PRT(372) 3 EOFT 
PRT(373) = GO TO SOLVER 
LORS =MKABSC(TBUFFI9) )3 
GO TO ENOREADTAPES 
EQFT! 


DEF INEARRAYCL S528 e"NOSENDS"& "ENC 194335); 
DEF INEARRAY(34)88"9999" & "9999"(1325423); 
TLCR#s MKABSCDEFINEARRAYE 34] )3 

PUTSEQNO (DEF INEARRAYE 33) eTLOR™8)3 
TURNONSTOPLIGHTC™&Z"» TLCR#=8)3 


ENDREADTAPE!? 
ENO READTAPE3 


PROCEDURE SEQCOMPARECTLCR,CLORs LIB)3 VALUE LIBS BUOLEAN LIBS 
PRT(374) = SEQCOMPARE 


02192000 
02192250 
02192500 
02192750 
02193000 
02193250 
02193500 
02493750 
02194000 
02194250 
02194500 
02194750 
023195000 
02195250 
02195500 
02195750 
02196000 
02196250 
02196500 


63 LONG 


02196750 
02197000 
02197250 
02197500 
02197750 
02198000 
02198250 
08198500 


START OF SEGMENT 


02201500 
O@201510 


START OF SEGMENT 


10 IS 


02201750 


02202000 
02202010 
02202020 
02202030 
02202040 
02202050 
02202060 
02202070 
02202080 
02202250 


24 LONG 


02202500 


T 
T 
T 
T 
T 
- 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 
T 
T 
T 
T 
T 
T 
T 
* 


T 
C 


0008 


Q009 
0010 


0011 
0012 
0014 
0015 
0045 
0016 
0023 
0025 
0027 
0028 
0045 
0045 
0046 
0062 
0062 
0062 
NEXT SEG 


0202 
0202 
0202 
0202 
0202 
0202 
Q202 
0202 


een K ERK 


0000 
0000 


week kketae 


P 


P 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
C 
C 
T 
a 


T 


0000 


0005 
0007 
0007 
0008 
0010 
0012 
0014 
0016 
0017 
0018 
NEXT SEG 


0000 


3 


10 


9 


PRT(375) = EOF 


REAL TLCR» 


BEGIN 
MEOIUMSa"C 3; & CARD READER. 


IF GTLSaCOMPARECTLCRsCLCR)#O0 THEN % TAPE HAS LOW SEQUENCE NUMB 


BEGIN 
LCOR&S=TLCRs LASTUSED3 #33 
MEDJTUMEa"T "3 & TAPE [NPUTe 
END 

ELSE BEGIN 


IF GTi # 1 THEN &% TAPE AND CARD HAVE SAME SEQ 


BEGIN 


MEOIUM$eMP "3 & CARD PATCHES TAPE. 


READTAPE3S 
BND3 
LCRI@CLCR3 
LASTUSEDS 323 
ENDS 
END OF SEQCOMPARE; 


CLOR 3 


LABEL CAROONLY» CAROLASTs TAPELASTs EXIT» FIRSTTIME, 


E0Rs USETHESWITCH» 
COMPARs TESTVOIDs XIT3 


SWITCH USESWITCHISCARDONLY*s CARDLAST» TAPELAST*#FIRSTITIMES 


IF ERRORCOUNT2ERRMAX THEN ERRC611)3 & ERR LIMIT EXCEEDED = STOP. 


USETHESWITCH! 
DOLLAR2TOG#sFALSES 
GO TO USESWITCHILASTUSEDI); 
MOVE CLs INFOCLASTUSEDsLINKReLASTUSED.LINKC J» 
DEF INEARRAYCDEFINEINDEX*2))3 
LASTUSED $s LASTUSED + 13 
NCR t& LCR*43 
GO TO xIT3 
FIRSTTIMES 
READCCARDe1O>CBUFF[#) 23 
FCREENCRESCLORISMKABS(CBRUFF(9J2) "93 
MEDTUMSS"C "5 
IF EXAMINCFCR)4"$" AND LISTER THEN PRINTCARDS 
PUTSEQNOCINFOCLASTSEQROWsLASTSEQUENCE J) o1CR)3 
TURNONSTOPLIGHTC™&S"sLCR)F 
GO xIT3 
COMMENT WE HAVE JUST INITIALIZED CARD INPUTS 
CARDONLY! 
READCCARDs LOsCBUFFE #323 
LCR %& MKABSC(CBUFF(9])4 GO EXIT} 
CARDLASTS 
READCCARBs 10eCBUFFC#) )CEOFI; 


CLOR ta MKABS(CBUFF(9) D3 
GO COMPAR} 

EOFS 
DEF INEARRAYC25 JF B"NDJEND Se MAMEN( 484995 )3 
DEF INEARRAY( 34] 85"9999"E"9999"0 13 25323)3 
CLORS #MKABS (DEF INEARRAY( 34) )3 
PUTSEQNOCDEFINEARRAYC33) eCLCR@8)3 


02202750 
02203000 
02203250 
02203500 
02203750 
02204000 
02204250 
02204500 
02204750 
02205000 
02205250 
02205500 
02208500 
02208750 
02209000 
02209250 
02209500 
02209750 


02210000 
02210250 
02210500 
02210750 
02211500 
02211750 
02211800 
02212000 
02212250 
02212500 
02212750 
02213000 
02213250 
02213500 
02213750 
02214000 
02214100 
02814200 
02814250 
02214500 
02214750 
02215000 
02215250 
02215500 
02215750 
02216000 
02216250 


022816500 
O28 16750 
02817000 
02217250 
02217500 
02217750 
02218000 


Se ee Le ee 


At HH tt tt a et ot 


0000 
0000 
0000 
0000 
0003 
0003 
0005 
0006 
0006 
0009 
0009 
0010 
OO11 
0011 
0011 
0012 
0013 
00143 


0015 
0015 
0015 
0015 
0020 
0023 
0023 
0023 
0025 
0028 
0029 
0031 
0032 
0032 
0033 
0037 
0040 
0044 
0064 
0063 
0064 
0064 
0064 
0065 
0069 
0071 
0072 


0077 
0079 
0079 
0080 
0082 
0084 
0086 


TURNONSTOPLIGHT("&"sCL CRB) } 
ry 
GO COMPAR} 
COMMENT THIS RELEASES THE PREVIUUS CARD FROM CARD READER AND 
SETS UP CLCR3 
TAPELAST!3 
READTAPE3 
COMMENT THIS RELEASES THE PREVIUUS CARD FROM TAPE AND SETS UP TLCR3 
COMPAR! 
SEQCOMPARECTLCReCLCRs FALSE); 
EXITS 
NCR $= FCRiz LCR = 93 
COMMENT SETS UP NCR AND FCR3 
IF EXAMINCFCRIZ"S" THEN & $"CARDS DON"T COUNT, 
IF COMPARE CMKABSCINFOCLASTSEQROWsLASTSEQUENCE) 2 eLCR)I=1 THEN 
BEGIN 
FLAGC610)3 % SEQUENCE ERROR, 
SEQUENCEERROR(LIN)3 
ENO; 
CARDNUMBERs sCONVCINFOCLASTSE@ROWSLASTSEQUENCE™4 ) e309 8)3 
IF LASTUSEDS3 THEN 
BEGIN 
IF VOIDTAPE THEN GO USETHESWITCH3 
IF VOIDTCR#O THEN 
IF CQOMPAREC(LCReVOIOTCRI=0 THEN GO USETHESWITCH3 
ENDS 
IF EXAMINCFCR)="S" THEN 
BEGIN 
IF LISTPTOG OR PRINTOOLLARTOG THEN PRINTCARD3 
NCRIFNCR*327683 DOLLARCARD3 


COMMENT DONT FORGET THAT NCR IS NOT WORD MODEs BUT CHAR, MUDE POINTERS 


GO USETHESWITCH3 
END3 
IF EXAMINCFCR)3" © THEN 
IF DOLLAR2 TOG SE XAMINCFCR+32768)e"S" THEN 
BEGIN 
OUTPUTSOURCES 
NCREISNCR#655364 & SCAN PAST * $" (CHARACTER MUDE De 
DOLLARCARD3 
ENDS 
IF VOIDING THEN GO USETHESWITCH; 
IF vOIOCR#0 THEN 
IF COMPARECKLCReVOIDCR)>0 THEN VOIDCRSSVOIDPLACESs0 
ELSE GO USETHESWITCHS 
IF VOIDTAPE THEN GO TESTVOIDs 
IF VOIDTCR#O THEN 
IF COMPARECLCReVOIOTCR)>0 THEN VOIDTCRIEzVOIOTPLACE%#0 ELSE 
TESTVOID#§ IF LASTUSED#®3 THEN GO USETHESWITCHS 
CARDCOUNFtsCARDCOUNTS13 
IF pOLLAR2TOG THEN GO USETHESWITCH3 
PUTSEQNOCINFOCLASTSEQROWsLAST SEQUENCE JeLCR)3 
OUTPUTSOURCES 
IF OMITTING THEN GO USETHESWITCHS 
% 
TURNONSTOPLIGHTC™RZ*sLOR)S 
XITs 
END READACARD; 


02218250 
02218400 
022186500 
02218750 
02219000 
02219250 
02219500 
02219750 
02224250 
02224500 
02225000 
02223250 
02225500 
Q0#@225750 
02226000 
02226250 
02226500 
02226750 
02227000 
02828000 
02228050 
02228075 
02228100 
02228125 
02226150 
02228175 
02228250 
02228500 
02228750 
02229000 
02229250 
02229500 
02229730 
02230000 
02230100 
02230250 
02830500 
02230750 
02231000 
02831250 
08231500 
02231750 
02232000 
02832250 
02232500 
02233000 
02233500 
02234000 
02234500 
02234600 
02234750 
02235000 
02235250 
02835500 
02235750 
02837750 
O0#@238000 


NAAM tA A Ht Ht tA tt Ht tt tt tt A A HA to tt 


0088 
0089 
0089 
0093 
0093 
0093 
0093 
0093 
0093 
0094 
0095 
0096 
0097 
0097 
0099 
0104 
0104 
0108 
0106 
0406 
0110 
0110 
0311 
0112 
0143 
0116 
0116 
0118 
0118 
0136 
0138 
0138 
0140 
0140 
0164 
0145 
0145 
0146 
0147 
0147 
0147 
0149 
0150 
0153 
0154 
0155 
0156 
0160 
0165 
0166 
0167 
0169 
0170 
0174 
0174 
0172 
0173 


REAL PROCEDURE CONVERT} 
PRT(376) = CONVERT 
BEGIN REAL Ts INTEGER N35 
STACK(F 43) = T 
STACKC(F +4) & N 
TLOeO03 THI ¢ 
Te CONVCACCUME AJ» TCOUNT»N#C(COUNT@=TCUOUNTIMOD 8)3 
FOR N* TCOUNT#N STEP & UNTIL COUNT@= 4 DO 
IF DPTOG THEN 
BEGIN 
DOUBLE C TMI e TLO2100000000.02 09 Xs CONVCACCUM( 1 J 9N9 8) a Ontoes 
THIeTLODS 
TeTHIs 
END ELSE 
Te Tx100000000% CONVCACCUM( 1] 5Ns8)3 
CONVERT*TS 
END; 


REAL STREAM PROCEDURE FETCH(F)3 VALUE F3 


PRT(377) 3 FETCH 


BEGIN SItsFs SitwSlegs OltelLOC FETCH OSt#wOS END FETCH; 


PROCEDURE DUMPINFOS 
PRT(400) = DUMPINFO 


BEGIN 
ARRAY ACO814)3 INTEGER JEDEN* OWA 


STACK(F+2) # A 
STACK(F+3) @ JEDEN 
STACK(F +4) = DWaA 
STREAM PROCEDURE OCTALWORDS(S»0eN)3 VALUE NB 
PRTC401) 3 OCTALWORDS 
BEGIN 
S1T##S3 O1td5 
NC2C8C 05823 RESETS 3¢CITF SB THEN OSti SET ELSE 
OSie) RESETS SKIP 4 SB8))2s OSsad LIT ™ ")s0S8e2 LIT" "3 
END OF OCTALWORDS3 


STREAM PROCEDURE ALPHAWQRDS(Se#DeN)s VALUE NB 
PRTC402) = ALPHAWORDS 
BEGIN 


9 IS 


177 LONGs NEXT SEG 


02848000 


02249000 


START OF S&GMENT 


11°18 


024850000 
02851000 
02252000 
02253000 
02254000 
02255000 
02856000 
02257000 
02258000 
02a59000 
02260000 
02261000 


28 LONG 


022862000 


02263000 


02864000 


02264050 
02264100 


START OF SEGMENT 


02264400 


02264450 
02264500 
02264550 
02264600 
02264650 


02264700 


02264750 


T 


T 


0202 


Q202 


REAR ade 


T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
T 
T 
a’ 


t 


T 
T 


week ehaw ee 


a" 


ee ee 


0000 
0000 
0005 
0010 
0010 
0010 
0015 
0016 
0016 
0016 
0024 
0024 
NEXT SEG 


0202 


0202 


0205 


0205 
0205 


0004 


O001 
0003 
0003 
0006 
0009 


0009 


0009 


3 


1} 


3 


le 


SI:sS3 Oltads 


NC2C4CDS3y LIT™ "§ DOSEFy CHRIS DSt=y LIT" "24 DSta2 LETH "73 


END OF ALPHAWORDS; 


IF NOHEADING THEN DATIMESWRITECLINECOBLIJe<//"ELBAT">)3 
PRT(403) = *FORMAT DESCRIPTOR* 


FOR JEOENt=0 STEP 6 UNTIL 71 00 
BEGIN 
BLANKETCI4*#A)3 OCTALWORDSCELBATEC JEDEN)»As6)3 
WRIFECLINEC OBL Is 1S ,AC#) 23 
END3 
BLANKETC14,A)3 OCTALWOROSCELBAT(72],An4)3 
WRITECLINELDBLIJsel5eAle) D3 
FOR JEDENtsO STEP 1 UNTIL NEXTINFO ovV 256 0O 
BEGIN 
WRITECLINECOBL Jo <//"INFOL™sl2e%—e)">sJEDEN)S 
PRTC404) = *FORMAT DESCRIPTOR* 


PRTC405) = *LIST» LABELs OR SEGMENT DESCRIPTOR® 
FOR DWAS#O STEP 6 UNTIL 251 DO 
BEGIN. 
BLANKETC14sA)3 ALPHAWOROSCINFOC YEDENsDWAJs, Ano); 
WRITECLINESL52AC#) 3 
BLANKETC242A)3 QCTALWORDSCINFOL VEDENsDWA Jo An 6)3 
WRITECLINECOBLIJ + 452Al*))3 


END3 
BLANKETC142A)5 ALPHAWOROSCINFO( JEDENS 252) 9A04);3 
WRITECLINEs 155 AC w] D3 
BLANKETCI4sA)5 OCTALWOROSCINFO[VEDEN2 252] 5A04)3 
WRITECLINECOBLI9 155 Ale) 23 


END3 
END OF DUMPINFOS 


DEFINE SKAN 3 BEGIN 
COUNTESRESULTS RACCUMEI J 9203 
SCANNERS 
QrwACCUMELI3 
END #3 
COMMENT DOQLLARCARD HANDLES THE COMPILER CONTROL CARDS: 
ALL COMPILER AND USER*DEFINEO OPTIONS ARE KEPT 
IN THE ARRAY "OPTIONS", 
EACH OPTION HAS A TWO*WORD ENTRY? 


WORD CONTAINS 
i ENTRY FROM ACCUMC1)% OOXZZ2é5 WHERE 
X IS THE SIZE OF THE ID AND 
22222 IS THE FIRST FIVE CHARS OF THE ID. 
2 PUSH"DUWN»s 47@BIT STACK CONTAINING THE 


43 15 


44 15 


l2 1S 


02264800 T O10 
02264850 T 0010 
02264900 T O014 
082264950 T Q014 
6 LONGs NEXT SEG 
02265000 T QO019 
02265050 Y Q020 
02265100 T 0020 
02265150 T 0023 
02265200 T Q027 
02265250 T 0029 
02265300 rt 0032 
02265350 T 0036 
022635400 T O04, 
02265450 FT O04] 
8B LONGs NEXT SEG 
02265500 rr 0048 
02265550 7 0049 
02265600 -T O49 
02265650 T 0052 
02265700 1 0057 
02265750 T 0060 
02265800 T 0068 
02265850 T 0067 
02265900 tT OO74 
02265950 7 Q075 
02266000 Tt Q079 
02266050 rT 0083 
02266100 T 0083 
@8 LONGs» NEXT SEG 
02277000 t 0205 
02878000 7 Q205 
Q2a79000 T 0205 
92280000 T Q205 
02281000 T 0205 
02282000 T 0205 
Q02a83000 T 0205 
02884000 T 90205 
02865000 7 0205 
02266000 tT Q0205 
02287000 T 0205 
02288000 y 0205 
02289000 T 0205 
02290000 T 0205 
02891000 fT 0205 
02292000 T O205 


le 


12 


3 


HISTORY OF THE SETTINGS QF THIS OPTION. 


IN "FINDOPTION®» ALL COMPILER*DEFINED OPTIONS ARE USUALLY 
LOCATED BASED UPON A UNIQUE NUMBER ASSIGNED TU EACH 

FOR ALL USER@DEFINED OPTIONS» aA SEQUENTIAL TABLE SEARCH IS 
INITIATED VSING "USEROPINX™ AS THE INITIAL INOEX INTO TRE 
"QPTIONS" ARRAY. IF THE NUMBER OF COMPILER@DEFINED OPTIONS 
IS CHANGED» THEN "USEROPINX" MUST BE ACCORDINGLY CHANGED, 
THE NUMBER OF USER DEFINED OPTIONS ALLOWED CAN BE 

CHANGED BY CHANGING THE DEFINE "OPARSIZE™, 

THE VARTABLE "OPTIONWORO® CONTAINS THE CURRENT TRUE OR FALSE 
SETTING OF ALL OF THE COMPILER@=DEFINED OPTIONSs ONE BIT PER 


OPTION, 
3 


BOOLEAN PROCEDURE FINDOPTIONCBITI4 VALUE BITS INTEGER BITS 
PRT(406) # FINDOPTION 
BEGIN 
LABEL FOUND3 


REAL ID3 
STACKCF+3) = IO 
OPINX#s2xBIT"43 
WHILE IDSSOPTIONSCOPINX#20PINX*#2]70 DO 
IF Q*I10 THEN GO FOUND; 
; OPTIONSCOPINXJ##@3 &% NEW USER@DEFINED OPTIONe 
QUNOS: 
IF OPINX #1>0PARSIZE THEN FLAG(602) ELSE % TOO MANY USER OPTIUNS 
FINDOPTION#t=sBOOLEANCOPTIONS{LOPINX#1))3 
END FINOOPTIONS 


PROCEDURE DOLLARCARDS 
BEGIN 
STREAM PROCEDURE RESTORESEQNUM(LCRe INFO) VALUE LCR} 
PRT(407) & RESTORESEQNUM 
BEGIN 
DItaLCRs SItwINFOS DStaenOS; 
ENDs 


PROCEDURE SWITCHITCXBIT)$ VALUE XBITS INTEGER XBIT3 
PRTC410) = SWITCHIT 
BEGIN 
BOOLEAN BeT3 


STACK(F+2) = B 

STACK(F 43) = T 
INTEGER SAVEINX) 

STACKCF 44) = SAVEINX 
LABEL XMODEOs XMODE1s»xXMQDE2sXMODE3s»XMUDE4s ALONG} 
SWITCH SWEBXMODEOs XMOQDE Ls» XMODE 2s XMODE 3s XMODESS 


02293000 
02294000 
02895000 
02296000 
02297000 
02298000 
02299000 
023800000 
02301000 
02802000 
02303000 
02304000 
02305000 
02306000 
02307000 


02308000 
02309000 


START OF SEGMENT 


45 IS 


02310000 


02311000 
02312000 
02313000 
02314000 
02815000 
02316000 
02317000 
02818000 


15 LONG 


02319000 
02320000 
02320200 


START OF SEGMENT 


02320400 
02820600 
92320800 


02321000 


02322000 
02323000 


START OF SEGMENT 


92324000 


0#325000 
02326000 


AnH tt 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


0205 
0205 


kN aH 


T 


T 
T 
T 
T 
P 
P 
T 
T 
) 


T 


T 
T 


0000 


0000 
Q004 
0005 
0006 
0008 
0008 
0010 
0012 
NEXT SEG 


0205 
0205 
0205 


eek K EK 


0000 
0000 
0000 


0004 


0004 
0004 


kaewkthehen 


T 


T 
T 


0000 


0000 
0000 


15 


3 


16 


17 


SETTINGS SF INDOPTIONCXBIT)5 SKANS 
GO SWCXMODE+1 33 


XMODEQ! & FIRST OPTION ON CARD» BUT NOT SET» RESET» UR POP, 
OPTIONWORD3SBOOLEANCO)S 
FOR SAVEINX$a1 STEP 2 UNTIL QPARSIZE DO OPTIONSCSAVEINX] #503 
XMODEtaLASTUSEDSeis & CARD INPUT ONLY, 

XMODE1% %& NOT FIRST OPTION AND NOT BEING SET» RESET» UR POPPED, 


OPTIONSCOPINX#+1 U3 aREALCTRUED3 
IF XBIT<USEROPINX THEN OPTIJONWORD:3Q0PTIONWORD & TRUECXBIT#1)3 
PRTC411) = DYNAMIC DIALS 
GQ ALONG} 
B® RESET. 
QPTIONSCOPINXS1 JEsREALCFALSE & SETTING(132346])3 
IF XBIT<SUSEROPINX THEN OPTIONWORDS#OPTIONWORO & FALSECXBIT#1]3 
GO ALONG} 
% SET, 
SAVEINX!SQOPINX$ % REMEMBER OPTION WE ARE SETTING. 
BtalF Qga%130000" THEN BOOLEXP ELSE TRUE3 
OPTIONSCSAVEINX*1 J¢sREAL(B & SETTING(1846))3 
TF XBIT<USEROPINX THEN UPTIONWORDS®OPTIONWORD & B CXBITILI3 
GO ALONG 
% POP, 
ORTIONSCOPINX+1IESREALCOSSSETTING, £1346))3 
IF XBITSUSEROPINX THEN WPTIONWORDS#OPTIJONWORU & 6B CXBIT!1)3 


XMODE2! 


XMODE3! 


XMODE4S 


ALONGS 
END SWITCHIT3 


LABEL EXIT» AGAIN» SKANAGAINS LENG THI »LENG TH2sLENGTHSsLENGTHG, 
LENGTHS »LENGTHOsLENGTH? » LENGTHBsLENGTHS» 
WHATISITs 
CARDOPTION»MERGEOPTIONS 
SWITCH OPTIONLENGTH! *®LENGTHL*WHATISI Te LENGTH3*LENGTH4s LENGTHS» 
LENGTHO*LENGTH7*WHATISITsLENGTHOSWHATISITS 
INTEGER SRESULT»SCOUNTS 
SRESULT 
SCOUNT 


STACK(F +2) = 
STACK(F43) = 
ALPHA VOIDRANGES 
VOIDRANGE 
DOLLARTOG#sTRUES 
MOVE C102ACCUM(O) »DEFINEARRAY(0J])3 &% SAVE INFORMATIUN FOR 
SCOUNT#sCOUNTS SRESULT?sRESULTS % "TABLE" TO RESUME SCAN, 
XMODE%a03 
PUTSEQNOCINFOCLASTSEQRQWeLASTSEQUENCE Jo LCR) 
TURNONSTOPLIGHTC™S%5LCOR)3 
SKANAGAIN? 
SKAN3 
AGAIN! 
GO OPTIONLENGTHEMINCCOUNT 210293 
LENGTHS: 
IF @ 8 "4180000" THEN GO EXIT 
IF @ # "180000" THEN 
BEGIN SWITGHITCPRINTOOLLARBIT)3 GO AGAIN END3 
IF Q@ ® "120000" THEN GO SKANAGAIN3 


STACKCFe4) & 


17 «IS 


02327000 
02928000 
02329000 
023830000 
02331000 
02332000 
02333000 
02334000 
02335000 


02336000 
02837000 
02338000 
02339000 
02340000 
02341000 
02342000 
02343000 
02352000 
02353000 
02354000 
02354000 
02886000 
02357000 
02358000 
02359000 


39 LONG 


02360000 
02361000 
02362000 
02363000 
02364000 
02865000 
02365100 


023865200 


02366000 
02866100 
02866200 
02367000 
02868000 
02369000 
0@370000 
02371000 
02372000 
02973000 
02374000 
02375000 
02376000 
02377000 
02378000 


T 
T 
T 
y 
T 
T 
T 
T 
YT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


| 


Se ee ee ee ee eee ee ee ee 


0005 
OU14 
0013 
0014 
O014 
0019 
0020 
0021 
0022 


0026 
0027 
0028 
0030 
O34 
0035 
0036 
0036 
0039 
0042 
0046 
0048 
0048 
00514 
0055 
0056 
NEXT SEG 


0004 
0004 
0004 
0004 
0004 
0003 
0009 


0009 


0009 
0010 
0012 
0014 
0014 
0016 
0017 
0018 
0021 
0022 
0026 
0027 
0028 
0029 
0033 


16 


GO wHATISIT; 


LENGTH2: 
LENGTH3: 
IF Q 
TIF Q 


IF Q 


IF Q 
IF Q 


IF 4 


% NO OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTED, 


= "3SETOO" THEN 

BEGIN XMODE%«33 GO SKANAGAIN END3 

= “3PORO0" THEN 

BEGIN XMODEt=43 GO SKANAGAIN END} 

Ss *3NEWOO" THEN 

BEGIN 

SWITCHITCNEWBIT)3 

IF Q@ @ “4TAPEO" THEN GO SKANAGAIN} 

GO AGAIN; 

END3 

® "35EQ00" THEN 

BEGIN SWITCHITCSEQBIT)4 GO AGAIN END} 
e "3PRTOO" THEN 

BEGIN SWITCHITCPRTBIT)+ GO AGAIN ENDS 
s “3MCPO0" THEN 

BEGIN SWITCHITCMCPBIT)3 GO AGAIN END} 


GQ WHATISITS 


LENGTH4? 
IF @ 


IF Q 


IF Q 


IF Q 


m "4LTSTO" THEN 

BEGIN 

SWITCHITCLISTBIT)3S 

GO AGAINS 

ENDS 

= "AVOIDO" THEN 

BEGIN 

IF XMODE#O THEN 
BEGIN 
GETVOIDCVOIDRANGE »NCRoLCR» INFOLLASTSEQROW »LASTSEQUENCEJ)3 
IF VOLOCR®O THEN VOIDCREMMKABS(VOIDPLACE) ELSE 

IF COMPARECMKABS(VOIDRANGE )sVOIDCR)44 THEN GO TO EXITS 

MOVEC 1» VOITDRANGEs VOIDPLACE)S 
GO EXITS 
END3 

SWITCHITCVOIDBIT)3 

GO AGAIN: 

END3 

a "GOMITO" THEN 

BEGIN IF NOT DOLLAR2TOG THEN BEGIN PRINTCARDS FLAG(605)3 ENDS 
SWITCHITCOMITBIT)3 GO AGAIN ENDS 

® "4CARDO" THEN 

BEGIN 

Qta"GTAPEO"S & FAKE OUT SWETCHIT, 

SWITCHITCMERGEBIT); 

IF XMQDE#2 THEN MERGETOGISNOT MERGETOGS 

OPTIONSC2XMERGEBIT@1 I] ts % CARO 18 

REALCSETTING & (MERGETOG)(4711))3 % INVERSE OF MERGE. 
IF MERGETOG THEN GO MERGEOPTION3 


CARDOPTYONS 


IF Q 


LASTUSEDIFLs 

GO AGAIN; 

END3 

® “MG4TAPEO” THEN 
BEGIN 
SWITCHITCMERGEBIT)3 


02379000 
02380000 
02381000 
02382000 
02363000 
02384000 
02385000 
02386000 
02387000 
02388000 
02389000 
02390000 
02391000 
02392000 
02993000 
02994000 
02395000 
02396000 
02397000 
02398000 
02399000 
02400000 
02401000 
02402000 
02404900 
02405000 
02406000 
02407000 
02408000 
02409000 
02410000 
02430500 
02441000 
02412000 
02413000 
02414000 
02415000 
02418000 
02449000 
02420000 
02421000 
02421100 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
024628000 
02429000 
02430000 
02431000 
02432000 
02433000 
02434000 
02435000 


a a a at a te tt at ta tt a at to tt tse 


0034 
0036 
0036 
0036 
0036 
0040 
Q040 
QO044 
0044 
0045 
0046 
O04? 
0050 
0050 
0050 
0054 
0054 
Q058 
0088 
0062 
0062 
0063 
0063 
0064 
0065 
0067 
0067 
0067 
0068 
0069 
0069 
0072 
QQ75 
0080 
0084 
0082 
0082 
0083 
0083 
0083 
0084 
0103 
Q104 
0105 
0105 
0106 
0107 
0110 
Q1t2 
O1ll4 
0116 
0116 
0116 
0120 
0120 
0120 
0121 


IF NOT MERGETOG THEN GO CARDOPTIONS 


MERGEQPTIONS 


LASTUSEDt=23 & NEXT CARD IS READ FROM READER, 


IF MAXTLCR=0O THEN 
BEGIN 


INTEGER STREAM PROCEDURE FEVCFeT)s VALUE T3 


PRT(412) = *SEGMENT DESCRIPTOR* 


PRT(413) * FEJ 


PRTC414) = FIX 


BEGIN 


SlesFs OLs=LOC Ts OSsewOS3 
STeeTs STeeST*36s OLsslac FEV; 


END FEW 


STREAM PROCEDURE FIXCFeT)3 VALUE T3 


BEGIN 


SIUsFs STbsSI"243 OL'sLOc Ts DSt=WDSs 
DItsTs DitsDL 44735 SKIP 4 DBs DSIe2 RESETS 
2COISBD1448)3 OSteB LIT"O0#O4 408"; 


END FIX3 


IF GTiteFEVCTAPE,OJ#10 THEN 
BEGIN 


REWIND(TAPE)S FIXCTAPES0)3 


ENDs 


MAXTLCR&SSGTL+TLCR&*9*MKABSCTBUFF (OJ 23 
REAOC TAPE S10, 7BUFFC*#])3 & INITIALIZE TAPE INPUTe 


LASTUSEDS #23 
END; 


PRTC415) = *SEGMENT DESCRIPTOR®* 


GO AGAIN; 
ENDS | 
IF Qg # "4PAGEO" THEN 
BEGIN 
IF LISTER THEN WRITECLINECPAGE))3 


Soe eNnGasN: 
IF Q = "@INFOO" THEN 


BEGIN DUMPINFQS GO SKANAGAIN ENDS 
IF @ ® "4SEGSO" THEN 


BEGIN SWITCHITCSEGSBIT)4 GO AGAIN END3 


IF @ * "QNESTO" THEN 


BEGIN SWITCHITCNESTBIT)4 GO AGAIN END; 


IF @ = "4DECKO" THEN 


BEGIN SWITCHITCDECKBIT)4 GO AGAIN ENDS 


GO WHATISITS 
LENGTHS: 
IF @ ® "SRESET" THEN 
BEGIN XMODE!t=23 GO SKANAGAIN END; 


START OF SEGMENT 


18 IS 


02436000 
02437000 
02438000 
02439000 
02440000 
02441000 


1 tt 4 


02442000 
02443000 
02444000 
02445000 


+444 


02446000 


~—¢ 


02447000 


02448000 
02449000 
02450000 


02451000 


4 tt 


02452000 
02453000 
02454000 
02455000 
02456000 
02457000 
02458000 
02459000 


tt 4 a tt 


24 LONG» 
02460000 
02461000 
02462000 
02463000 
02464000 


85288388 


02467000 
02468000 
02469000 
02470000 
02471000 
02472000 
02473000 
02474000 
02475000 
02476000 
02477000 
02478000 


oe Nee Nee ee Bee ee ee i ee ee ee ee 


Q1z2 
0123 
Olea 
0124 
0125 
0126 


eeeea eed a 


0000 
0000 
0000 
0004 


0002 


0002 
0003 
0004 
0005 
0007 


0007 
0010 
O0O41 
0014 
0014 
0017 
Q022 
0022 


NEXT SEG 
O128a 
0128 
0128 
0129 
0129 


8138 


0136 
0136 
0140 
0140 
0144 
0144 
0148 
0148 
0152 
0152 
0153 
0153 


18 


16 


IF Q@ ® "5LISTP™ THEN 


IF 


IF 


If 


IF 
IF 
IF 


IF 


Q 


) 


BEGIN SWITCHITCLISTPBIT)3 GO AGAIN’ END} 
& "SVOIDT" THEN 
BEGIN 
IF XMODESO THEN 
BEGI 


N 
GETVOIDCVOTDRANGE »NCReLCReINFOCLASTSEQROWsLASTSEQUENCEI) )3 


IF VOJDTCR®O THEN VOIDTCRE®MKABSCVOIDTPLACE) ELSE 


IF COMPARECMKABSCVOTORANGE )eVOIOTCRIA1 THEN GO TO EXITS 


MOVE CLs VOTDRANGEs VUIDTPLACE)D3 
GO EXIT3 
END} 
SWITCHITCVOUIOTBIT); 
GO AGAIN} 
ENDS 
e "SCHECK” THEN 
BEGIN SWITCHITCCHECKBIT)3 GO AGAIN END; 
e "SLIMIT" THEN 
BEGIN 
SKAN3 
IF RESULT43 THEN % SHOULD BE NUMBER. 
BEGIN FLAG(600)3 GO AGAIN ENDS 
ERRMAXS#CONVCACCUMEC1 J] 202 ACCUME1).0C12%6))3 
GO SKANAGAIN} 
ENDS 
s “SPUNCH” THEN 
BEGIN SWITCHITCPUNCHBIT)3 GO AGAINS END; 
= "SPURGE" THEN 
BEGIN SWITCHITCPURGEBIT)3 GO AGAINs END; 
= "$LISTA” THEN 
BEGIN 
SWITCHITCLISTABIT); 
GO AGAIN3 
ENDS 
= “SSTUFF™ THEN 
BEGIN SWITCHITCSTUFFBITIS GO AGAINS END; 


GO WHATISIT; 


IF 
IF 
IF 


IF 


LENGTH6$ 


Q 
Q 


Q 


Q 


= "6SEQER” THEN 
BEGIN SWITCHITCSEQERRBIT)3 GO AGAIN END3 
® W6SINGL” THEN 
BEGIN SWITCHITCSINGLBIT)3 GO AGAIN’ END3 
= "6SEQXE" THEN 
BEGIN 
SEQXEQTOGI=XMODEZ2 AND XMODEF & OR SEQXEQTOGS4NEVER RESETe 
IF BUJLOLINE,C4531] THEN BUILOLINES=TRUES 
GO SKANAGAIN; 
END} 
® "“6DEBUG" THEN 
BEGIN 
SWITCHITCOEBUGBIT); 
IF BEBUGTOG THEN 
IF WOPTO}#0 THEN 

BEGIN 

FILL WOPC#] WITH 
MLITCt," ", 


02479000 
02480000 
02481000 
02482000 
02483000 
02484000 
02485000 
02485500 
02486000 
02487000 
02488000 
02489000 
02490000 
02493000 
02494000 
02495000 
02496000 
02497000 
02498000 
02499000 
02500000 
02501000 
02502000 
02903000 
02504000 
02305000 
02306000 
02307000 
02808000 
02509000 
02810000 
02841000 
023913000 
02514000 
02915000 
02516000 
02517000 
02318000 
02519000 
02320000 
02921000 
02522000 
02523000 
02824000 
02325000 
02526000 
02927000 
02928000 
02529000 
02930000 
02331000 
02333000 
02534000 
02535000 
02836000 
02337000 


START OF SEGMENT 


0157 
0157 
Q161 
0161 
0162 
0163 
0163 
0166 
0169 
Q474 
0175 
0176 
O176 
Q177 
O17? 
0177 
Q178 
O18} 
0184 
0182 
0186 
0186 
0190 
0193 
0193 
0193 
0194 
0198 
0198 
0202 
0202 
0203 
0204 
0206 
0206 
0206 
O2@10 
0210 
Qett 
Oelt 
02158 
0215 
0219 
0219 
0220 
0223 
0225 
Qee?7 
0227 
0227 
0228 
0229 
0229 
Oe31 
0231 
0232 


aeettakan 


mNOP 
"GEQ 
"RIN 
"NEQ 
"SND 
"DuP 
2335 "LEQ 
5822 “SSP 
1003,"ScI 


11, 
21s 
39, 
69> 
132, 
261» 


Os" " 


Os"EX¢ 
125"SDaA 
22e"TEG 
31-"BIT 
38," NS 
45," IRC 


WOPDC™» "DESC", 


", 12s 
%» e2e 
%, UOs 
", The 
%e133> 
",2785 
",534, 
27900 


"PRT 
"BBC 
"coc 
"XT 
"XCH 
"LBC 
"BBW 
"LGU 


",1004s"SAN 


1023 1023+ 1023510235 1023610235 1023 1023510239102391023» 10233 


2020s 


", 29"BS0 
e 1 ao"SSA 
",23e"TGR 
“e322” INC 
"239s" JFW 
"s46a"TSA 


FILL COPC*) WITH 


"> 430 
We 2ap 
“p UBs 
“p 72» 
"e134, 


"DEL 
"TNX 
"SUB 
"MKS 
"CHS 


"ADD "> 
"LOR >, 
"MUL 
"OIV 
"RTS 


"» 16,5 
", 35, 
"s 64> 
"9128, 
21675 


"y 


2130s 
"2168s 
*es29Mo™LFC Me322e"ZP1 "r384s "IOV 55325 "ISD ", 


18s 
37>» 


67>» 


"PRE 
"GTR 
"LND 
"COM 
"COC 


"s 19>» 
pp 38> 
"s 682 
"sl3ls 
"22602 


"LNG 
"BFC 
"STD 
"Lav 
"LOD 


Ws 


"pS4Bs "ISN "55495 "LSS "55505 "BFW "s5815 "EQL ", 


"28065 "LFU "5896, 


"RDV ">, 


*pLO19,"SCS %, 
1923210234 10235 1023 1023510235 1023510235 1023» 10235 1023%1023%102351023» 


"s 3e"BSS 
"214a"SFD 
"e24e"SRS 
2339"STC 
s40e"RCA 
"ea7a "IRV 


% CHARACTER 


*s Us"RDOA "sp Se"TRW 


*s 199 "SRD 
2 250"SFS 
,34e"SEC 
e4le"ENS 
, GBs "CEQ 


2182 "SES 
s2Be "TEL 
2 355"CRE 
p42e"BNS 
ss 49e"CNE 


MODE MNEMONICS 


"s6e"SED “pe 7a"TOA "ys 
,20e"TEQ 
"sa9e"TLs 
2369" INC 
"s43e"RSA 
,50s"CEG 
22e"BIT “s53o"BIR "#5Ge"OCV SS59™ICV “eSGe "CEL "SS7O"CLS eSBa"FSU "ye 


ee 


"TNE > 


"2 30e"TAN "p 
"e37e"JFC Me 
"s4Ge"SCA Ms 
"eSde"CGR 5 


SOs"FAD "e600 e"TRP “sbLe"TRN “s62e"TRZ SO 3e"TRS r6UrU r6U Us bbe Or bbn0y 
BAe Ceb4r Or bbe Os bbsQ3 


ENDS 


GO AGAIN$ 


END3 


IF Q = "O6OFQRMA" THEN 
BEGIN SWITGHITCFORMATBIT)3 GO AGAIN} END} 


GO WHATISIT; 


LENGTH7:3 


% IF g = "7INCLU" THEN 
a 


% IF Q 
% 


LENGTH8: 
LENGTHOs 
IF @ 


BEGIN DOLLARCARDs3STARTINCLUDINGS 


= "7INCLN"’ THEN 


BEGIN SWITCHITCNEWINCLBIT)3 


GQ AGAIN; 


GO EXIT. 


END 


ENDS 


* NQ OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTEDe 


= "SINTRI® THEN 


BEGIN 


INTOGs@XMODE¥2 AND XMODEZ 4 OR INTOGS % NEVER RESET. 


GO SKANAGAIN3 


ENDS 
WHATISIT? 
IF RESULT#®3 THEN 


BEGIN 
BASENUMS SCONVCACCUM(11505ACCUM(1),£1236))3 


TOTALNOS "103 


NEWBASES#TRUES 


GO SKANAGAIN 


ENO} 
IF RESULTS2 TREN 


BEGIN 


IF Q@ = "140000" THEN 


BEGIN 
SKAN3 


19 «IS 


02538000 
02339000 
02540000 
02341000 
02942000 
02943000 
02544000 
02545000 
02946000 
02547000 
02548000 
02549000 


128 LONG 


02350000 
02551000 


START OF SEGMENT 


20 IS 


02552000 
02553000 
02554000 
02555000 
02556000 
02557000 
02558000 
02959000 
02560000 


128 LONG 


02563000 
02564000 
02965000 
02566000 
02567000 
02568000 
02869000 
02570000 
02571000 
02572000 
02573000 
02574000 
02975000 
02876000 
02876500 
02577000 
02577250 
02877500 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 


me a a eat se st tt 


AHH HHH Hs tt ot oo a 


0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
0233 
NEXT SEG 
0233 
0234 


keaRK RR 


0235 
0235 
0235 
0235 
0235 
0235 
0235 
0235 
0235 
NEXT SEG 
0235 
0235 
0237 
0237 
0237 
O24 
0244 
0242 
Oe4e2 
0242 
0242 
0242 
0242 
0242 
0242 
0243 
0247 
0249 
0249 
0249 
o249 
0250 
0253 
0254 
0255 
0255 
0255 
0256 
025? 
0257 
0258 


16 


20 


16 


IF RESULT#3 THEN 

ADDVALUES =CONVCACCUME 1] 202 ACCUME 1) .£1296)) 
ELSE FLAG(600)4 % NUMBER EXPECTEDs 

END} 
GO SKANAGAIN3 


END} 
COMMENT DID NOT RECOGNIZE OPTIONS 
IF RESULT#1 THEN % NOT AN IDENTIFIERS 
BEGIN FLAG(601)3 GO SKANAGAIN END3 
SWITCHITCUSEROPINX)S % USEROPINX MEANS A USER@DEFINED UOPTIONe 
GO AGAIN 
EXT! 
LISTERtaDEBUGTOG OR LISTOG OR LISTATOG; 
MOVECLOs,DEF INEARRAY(O)sACCUMLOJ)3 % RESTORE INFORMATION FOR 
COUNT#SSCOUNTS RESULTS=SRESULTS &% "TABLE" TO RESUME SCAN, 
RESTORESEQNUM( LCR» INFOLLASTSEQROWsLASTSEQUENCE})3 % FOR VOID TESTS 
DOLLARTOGISFALSES 
END DOLLARCARDS 


COMMENT TABLE [%S THE ROUTINE THAT MOST CODE IN THE COMPILER 
USES WHEN IT IS DESIRED TU SCAN ANOTHER LOGICAL @UANTITY,. 
THE RESULT RETURNED IS THE CLASS OF THE ITEM DESIREDes 
TABLE MAINTAINS THE VARIABLES I ANDO NXTELBT AND TRE ARRAY 
ELBATe ELBAT AND I ARE PRINCIPAL VARIABLES USED FOR 
COMUNICATION BETWEEN TABLE AND THE OUTSIDE WORLDe NXTELBT 
IS ALMOST EXCLUSIVELY USED By TABLE» ALTHOUGH AN OCCASION] 
AL OTHER VSE IS MADE IN ORDER TO FORGET THAT SOMETHING WAS 
SCANNED, (CSEEs FOR EXAMPLE* COMPOUNDTAIL)«¢ FOR FURTHER 
GENERAL DISCUSSION SEE THE DECLARATION OF THESE VARIABLES. 
THE PARAMETER P IS THE ACTUAL INDEX OF THE QUANTITY 
DESIRED CUSUALLY Jie» OR I+1), 
THE GENERAL PLAN OF TABLE IS THIS! 
1) IF P <S NXTELBAT GO ON TO III). 
II) PROCESS ONE QUANTITY. 
A) SCAN, 
B) TEST FOR IDENTIFIER» NUMBER» OR SPECIAL CHARACTER, 
1) IDENTIFIER © LOOKUP IN DIRECTORY AND PROCESS 
IN SPECIAL MANNER IF COMMENT OR DEFINED IO, 
2) NUMBER © PROCESS INTEGER PART» FRACTIONAL PART» 
AND EXPONENT PART, 
3) TEST IF SPECIAL CHARACTER REQUIRES SPECIAL 
PROCESSING = OTHERWISE GET ELBAT WORD FROM 
SPECIAL, 
€) LQAD ELBAT AND INCREMENT NXTELBT. 
0? IF ELBAT IS FULL ADVUST ELBATs NXTELBT»s 
E>) GO BACK TO 1), 
III) RETURN WITH CLASS OF ELBATCP]). 
FURTHER DETAILS ARE GIVEN IN BODY OF TABLE. 


I» AND P,. 


3 
INTEGER PROCEDURE TABLECP)S VALUE P3 INTEGER P3 
PRTC(416) # TABLE 
BEGIN 
LABEL PERCENT ,SPECIALCHAR,COMPLETE sCOLONs DOT, ATSIGN, QUOTE, 


16 1S 


02594000 
92892000 
02593000 
02994000 
02595000 
02596000 
02597000 
02998000 
02599000 
02600000 
02601000 
02602000 
02602500 
02602600 
02602700 
02602800 
02603000 
02604000 


285 LONG 


02605000 
02606000 
02607000 
02608000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 
02625000 
02026000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 


02836000 
02637000 


T 
T 
T 
T 
T 
ug 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
, 


4 HHH HH tt tt 


0262 
Q262 
0265 
0268 
0268 
0269 
0269 
Q269 
0270 
0274 
0272 
0273 
0273 
0276 
0278 
0279 
0281 
0282 

NEXT SEG 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
Q205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


0205 
0205 


3 


STRNGXTsMOVEL Ts ARGHe FINI SHNUMBERS® 


SCANAGAIN*FPARTSEPARTs TPARTs IDENTs RUSE » COMPOST sDOLLARsRTPAREN? 


CROSSHATCHs NUMBERENDS 


SWITCH SPECIALSWITCHSSPERCENTs DOLLAR» DOT*#ATSIGN»COLONs QUOTES 


RTPARENsCROSSHATCHS 


SWITCH RESULTSWITCHI®IDENTsSPECIALCHAR»ITPARTS 
WHILE P 2 NXTELBT 


00 


BEGIN 


SCANAGAINS 


ARGH! 


COUNTSBRESULTERACCUMC129"03 SCANNERS 
GO RESULTSWITCHCRESULTI3 


QtsACCUMEC1I3 FLAGC141)9% GO SCANAGAINS 


SPECIALCHAR?! 


COMMENT 


COMMENT 


COMMENT 


COLONS 


DOT: 


ATSIGN! 


COMMENT 
QUOTE3 


ELSE 


STRNGXT3 
MOVEITS 


GT1SACCUM(1],01886) © 23 
ENDTOG#3GT1 = 57 AND ENDTOGs 
OBTAIN ACTUAL CHARACTER FROM ACCUM 
TIeSPECTALCGTISGTIC4284123))3 
NOTICE COMPRESSION TECHNIQUE USED TO SHORTEN TABLE OF 
ELBAT WORDS FOR SPECIAL CHARACTERS 
IF GTitaeTeINCR = 0 THEN GO COMPLETES 
GO SPECIALOWITCH(GT1I3 
INCR FIELD OF SPECIAL CHARACTER JS NON@ZERO FUR SPECYAL 
CHARACTERS REQUIRING SPECIAL HANDLING, INCR 1S SWITCHED 
ON TO OBTAIN DISCRIMINATIONS 
RESULT8373 SCANNERS COMMENT ELIMINATE BLANKS ™ CHECKING 
FOR &$* IN PLACE OF ¢ 3 

IF EXAMIN (NCR) & "e" THEN 

BEGIN RESULTsa0s SCANNERS TesSPECITALC13] END; 
RESULT##25 GO COMPLETES 


IF EXAMINCNCR)29 OR ENOTOG THEN GO CUMPLETES 
NHI PRNLOLSO} 
Cts03 GO FRART; 


RESULT!#03 SCANNERS % SCAN PAST “er, 
IF COUNT>17 THEN GO ARGH} % 16 CHARS, + "@", 
TF OCTIZECACCUME LJ eCol7*COUNT»COUNT"@1) THEN 
BEGIN Q##aCcuM(1)]3 FLAG(5S21)3 GO SCANAGAIN ENDS 
GO NUMBERENDS 
DOT AND ATSIGN ENTER NUMBER CONVERSION AY CORRECT SPOTS 


COUNTS #03 
TEeRIF STREAMTOG THEN 63 
IF REAL CSTREAMTOG)>1 TREN § ELSE 73 
DO BEGIN 
RESULT#a53 SCANNERS 
IF COUNT>T THEN 


BEGIN QtmaACCUMEC1)3 FLAG(520)3 GO SCANAGAIN END; 


END UNTIL EXAMINCNCR) @ faery 
QtwACCUMEAIS RESULTI353 SCANNERS COUNT? aCQUNT®? 13 
IF COUNT<O THEN COUNTIERCOUNT +643 
ACCUMC1)8803 RESULTI 43 
Tt=CsxeQ} 

IF COUNT < 8 THEN 


START OF SEGMENT 


02638000 
02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
92650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02656000 
02657000 
02658000 
02659000 
02660000 
02661000 
02662000 
02663000 
02664000 
02665000 
02666000 
02467000 
02668000 
02680000 
02681000 
02682000 
02683000 
02684000 
02685000 
02686000 
02686500 
02687000 
02689000 
02690000 
02691000 
02692000 
02692500 
02693000 
02694000 
02695000 
02696000 
02697000 
02698000 
02499000 
02700000 
02701000 
02703000 
02704000 


kaerekkahkak 


AA AMM MMMM HHH HH tt tA A tt a tt a te 


0000 
0000 
0000 
0000 
0002 
0007 
0012 
0013 
0014 
0015 
0017 
0019 
0020 
0022 
0023 
0025 
0026 
0026 
0028 
0028 
0028 
0034 
0033 
0033 
0033 
0033 
OU34 
0034 
0036 
0038 
0040 
0040 
0043 
0044 
0045 
0046 
0047 
Q048 
00514 
0054 
0055 
0055 
0055 
0055 
00356 
0060 
0060 
0064 
0062 
0064 
0067 
Q070 
0073 
QO7s5 
0076 
0077 


COMMENT 


MOVECHARACTERS(COUNT*#ACCUMC 1) 53» Ce B8*COUNT DS 
TeCLASSSSSTRNGCONS 

GO GOMPLETES 

CROSSHATCH HANDLES TWO SITUATIONS? 

THE CROSSHATCH AT END OF DEFINE DECLARATIONS AND 

THE CROSSHATCH AT END QF ALPHA REPRESENTING DEFINED I0S-e 
THE TWO CASES ARE PROCESSED OIFFERENTLYe THE FIRST CASE 
MERELY PLACES THE CROSSHATCH IN ELBATs. THE SECOND CASE 
CAUSES AN EXIT FROM SCANNING THE ALPHA FOR THE DEFINED [D> 
FOR A FULL DISCUSSION SEE DEFINEGEN3 


CROSSHATCH! 


DOLLAR! 
PERCENT? 


COMMENT 


COMMENT 
RTPAREN? 


IF DEFINECTRZ0 THEN GO COMPLETE; 
PUTSEQNOCGTIeLCRII 
TURNONSTOPLIGHTCOeLCRII 
IF DEFINEINDEX #2 0 THEN GO ARGH} 
LORS HC(GTISeOEFINEARRAYCOEFINEINDEX*1I2) DIV 2621443 
NCRESGTL MUD 2621443 
GT2%20a( TS sDEF INEARRAY COEF INEINDEX!=DEF INE INDEX"3))(33%18815)3 
LASTUSEDS ST .C633335)3 
FOR GT1%#1 STEP 1 UNTIL GT2 DO 

BEGIN 

STACKHEADECCTISTAKECLASTINE O41) 22012936) MOD 125) ts 

TAKE CLASTINFQ) LINKS 

LASTINFOSSCNEXTINFOS SL ASTINEGI@TePURPTS 

END? 
GU SCANAGAIN$ 
COMMENT THIS CODE HANDLES CONTROL CARDS; 
DOLLARCARDS 
IF NCR # FCR THEN READACARD3 
GO SCANAGAINS 
MOST PERCENT SIGNS ACTING AS END OF CARD SENTINELS GET TO 
PERCENTe PERCENT READS THE NEXT CARD AND STARTS OVER, A 
SIDE EFFECT IS THAT ALL CHARACTERS ON A CARD ARE IGNORED 
AFTER A FREE PERCENT SIGN CONE NOT IMBEDDED IN A STRING OR 
COMMENT)3 
MIGHT BE FUNNY COMMA * HANOLE HERES 
RESULTt#73 SCANNER, 
IF EXAMINCNCR) #@ 88 THEN 

BEGIN 

RESULT%#s04 SCANNER} 

dO BEGIN 

RESULT8s53 SCANNER 
END UNTIL EXAMINCNCR) & @h3 

RESULT##04 SCANNERS 

RESULT&=27% SCANNERS 

IF EXAMINQNCR) # "C" THEN GO ARGH} 

RESULT#0% SCANNERS Q&eACCUM(1I3 

TQERSPECIAL C24] 

END3 
RESULT#423 GO COMPLETE3 
TCOUNTS®03 CSBCONVERTS 
RESULT#@73 SCANNERS &% QEBLANK, 
IF DEFINECTR#Q THEN 


IF €C#3 OR C#4) AND EXAMINGNCRIS""" THEN ZOCTAL OR HEX STRINGs 


BEGIN INTEGER SIZ3 
RESULT##53 SCANNERS % SKIP QUOTE, 
COUNTE*OS 


02705000 
02705100 
02705200 
02707000 
02708000 
02709000 
02710000 
02711000 
02712000 
02713000 
02714000 
02715000 
02716000 
02F17000 
02718000 
02749000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02726000 
02727000 
02728000 
02729000 
02730000 
02731000 
02737000 
02738000 
02739000 
02740000 
02741000 
02742000 
02343000 
02744000 
02745000 
02746000 
02?47000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
02754000 
02755000 
02756000 
02757000 
02758000 
02789000 
02760000 
02#61000 
02762000 
02%63000 
023764000 


A ABA HH HHH HHH HH a A to AH HHH A St a a tt a 


0078 
0080 
0062 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0083 
00864 
Q085 
0086 
0087 
0090 
0094 
0094 
0095 
0098 
0098 
0103 
0102 
0105 
Q107 
0107 
0108 
0108 
0110 
Olli 
O1ii 
Oil) 
Olid 
Oils 
Olli 
Olli 
0113 
Q115 
0115 
0116 
O117 
0117 
0120 
Oley 
0123 
0125 
0127 
0127 
0128 
0129 
043i 
01434 
0131 
01314 
0131 
0131 


Be BE BE BEBE DE BE DE HE BE DE BE DC dL Bl aE DE DC Ze 


FPARTS 


EPART? 


dO BEGIN 
RESULT8#53 SCANNER} 
IF COUNT > SI48®48 DIV C THEN % > 1 WORD LONG. 
BEGIN ERR(520)3 GO SCANAGAIN ENDS 
END UNTIL EXAMINCNCR) SIMS 
Q@'sACCUMC1I3 RESULT#35%3 SCANNERS COUNTESCOUNT@"43 
IF C33 THEN % OCTAL STRINGe 
IF UCTIZECACCUME AI], ACCUME4),16*°COUNTsCUUNT) THEN 
FLAGCS521) % NON OCTAL CHARACTER IN STKINGs 


ELSE ELSE IF HEXIZECACCUMEI Js ACCUME4 Jo 12"COUNT* COUNT) THEN 


FLAGCS21)% % NON CHARACTER IN HEX STRINGe 
IF COUNT < SIZ THEN 

BEGIN 

CHSACCUMEC4]3 GO FINISHNUMBERS 

END; 
TeINCRImCOUNTIBBS T,CLASSISSTRINGS 
MOVECHARACTERS (C8, ACCUMLGJ,0,ACCUM(11,3)3 
GO COMPLETE; 
END OCTAL OR HEX STRING; 


IF OPTOG THEN 


BEGIN NHIS#THIs NUUSSTLOS ENDS 


IF EXAMINCONCRI5"," THEN 


BEGIN 
RESULT&s04 SCANNERS 
CiF1,0x Ch 
TCOUNTS sCOUNTS 
IF EXAMINCNCR)S9 THEN 
BEGIN 
RESULT8303 SCANNERS 
IF DPTOG THEN 
BEGIN 


DOUBLE C CONVERT» TLOsTENCCCOUNT™TCOUNTIMOD 12)5 


Os/otBeTHI] sTLOS 
FOR Tte12 STEP y2 UNTIL COUNT = TCUUNT DO 
DOUBLECTH] sTLOSTENCI12) 9O0e/o3 Se THI eo TLO)DS 
DOUBLEC THI] s TLOoNHI»NLOo +s Sao NNI oe NLODS 
CiAaNHTI 
END 
ELSE C8STENCTCOUNT*COUNTIXCONVERTSC3 
END 
ENDS 


RESULT?*74 SCANNER} 
IF EXAMINCONCRIS"O@" THEN 


BEGIN 
RESULT!s0% SCANNERS 
TCOUNT!#=COUNTS 
CteCx1.03 
RESULT!s73 SCANNERS 
IF TSSEXAMINCNCR)>9 THEN 
BEGIN 
RESULT#sQ3 SCANNER; 
TCOUNT#SCOUNTS 
ENO; 
RESULT##03 SCANNERS 
QIEsACCUMLLI3 
IF GTIGsTISCIF Ta"""THEN @CONVERT ELSE CUNVERT2<#46 OR 
T>69 THEN FLAGC2609) 


02765000 
02766000 
02767000 
02768000 
02769000 
02870000 
02771000 
02772000 
02773000 
02774000 
02775000 
02776000 
02777000 
02778000 
02779000 
02780000 
02781000 
02782000 
02783000 
02784000 
02785000 
02786000 
02787000 
02788000 
027869000 
02790000 
02791000 
02792000 
02793000 
02794000 
02795000 
02796000 
02797000 
02798000 
02799000 
02800000 
02801000 
02802000 
02803000 
02804000 
02805000 
02806000 
02807000 
02808000 
02809000 
02819000 
02811000 
02812000 
02813000 
02815000 
02816000 
02817000 
02818000 
02820000 
02822000 
02823000 
02824000 


ANAM MN Nt Ht Ht tt A ttt A ta HA te te 


0131 
0131 
0131 
0131 
O31 
0134 
0134 
O134 
01314 
0131 
0131 
Olsi 
0134 
0134 
O13] 
0134 
0131 
0131 
013i 
0134 
0132 
0134 
0135 
0136 
0137 
0138 
0139 
0144 
0142 
0143 
01443 
0144 
0147 
0146 
0153 
0158 
0160 
0160 
0161 
0164 
0164 
0164 
0166 
0167 
0168 
0169 
0170 
0172 
0173 
0175 
0176 
0177 
01786 
0176 
0179 
0180 
0185 


ELSE BEGIN 
TeaTENCT Js 


TF ABSCORCE42Sh3t6lacllis]z1isORT(C4etstolatl(isazsy4 


# 12) >63 THEN FLAG( 269) 
ELSE IF OPTOG THEN 
IF GT1i<0O THEN 
BEGIN 
GTisseGTl3 


DOUBLECNAI»NLOsTENCGTL MUD 12)09/e8=eNHI eo NLODS 


FOR GT2s3i2 STEP 12 UNTIL GTi OU 
DOUBLE CNHI *NLO* TEND I 2] 005/948 eNHISNLODS 
END 
ELSE BEGIN 


DOUBLECNAIT*sNLOsTENCGTIL MOD 12] 200xet®e,NHI eo NLOD} 


FOR GT2:442 STEP 12 UNTIL GT1 DOO 
DOUBLEC NHI »NLOs TENT L121] 500%» 3SeNHIoNLODS 
ENO 
ELSE CtsCxT3 
ENOS 
ENO3 


NUMBEREND? 


QEsACCUMC1)3 RESULTI#R33 


FINISHNUMBERS 


COMMENT 


IDENT? 
ROSE! 


T2200} 
IF Cel3%37)80 THEN 

BEGIN TeCLASSS@LITNO $ TeADORESS$=C END 
ELSE TeCLASSS2NONLITNO 3 
GO COMPLETES 
THE CODE BETWEEN IDENT AND COMPOST DOES A LOOKUP IN INFO, 
IF QUANTITY IS NOT FOUNO THE ELBAT WORD EXPECTS TO BE 
ZERO, THE SCRAMBLE FOR APPROPRIATE STACK IS FIRST THING 
TO BE DONE. THEN THE LOUP BETWEEN COMPOST AND 
ROSE IS ENTEREDse THE LAST THING DONE FOR ANY 
IDENTIFIER WHICH IS FOUND IS To STUFF THE LOCATION 
OF THE ELBATWORD IN INFO INTO THE LINK FIELDe THIS 
ALLOWS REFERENCE BACK TU INFO FOR ADDITIONAL DATA» 
SHOULD THIS BE REQUIRED. 3 
TEsSTACKHEADCSCRAMS&(Q8S®ACCUME1])MOD 12573 
GTitet LINKR 
IF COT2UBTeLINKC) 4GTi= O THEN 

BEGIN T8203 GO COMPLETE END; 


IF T = INFOCGT{s GT2) THEN BEGIN 


COMPOST: 
COMMENT 


T#s 04 GO TO COMPLETE END3 
TisINFOCGTLeGTeds 
IF INFOCGTieG7T241) 68001818113 4 @ THEN GO ROSES 
TF COUNT $ S THEN GO COMPOST 3 


IF NOT EQUALCCOUNT#SsACCUM(2) sINFOCGTIsGT2+2)) THEN GO ROSE; 


TeaTSGTACIS§43t5 aGT264014088); 
CHECK HERE FOR COMMENTS ANO DEFINED IDS3 
IF NOT ENDTOG THEN 
BEGIN 
IF GTLtaTteCLASS = COMMENTV THEN 
BEGIN 
WHILE EXAMINCNCR) 2 "3" OO 
BEGIN RESULT# 363 COUNT%3203 SCANNER END3 
RESULTSB@QJ SCANNERS GO SCANAGAIN 
END 


02825000 
02826000 
02827000 
02828000 
02829000 
02830000 
02831000 
02832000 
028633000 
02834000 
02835000 
02836000 
02837000 
02838000 
02839000 
02840000 
02841000 
02642000 
02843000 
02844000 
02845000 
02846000 
02847000 
02848000 
02849000 
02850000 
02851000 
02852000 
02853000 
02854000 
02855000 
02859000 
02860000 
02861000 
02862000 
02663000 
02864000 
02865000 
02875000 
02876000 
02877000 
02877010 
02877020 
02878000 
02879000 
02880000 
02881000 
02882000 
02883000 
02884000 
02885000 
02886000 
02887000 
02888000 
02889000 
02890000 
02891000 


AA Ht tt Ht HOO A Ht tt HA st tt ot A tt tt tt tt tt a a te 


0186 
0189 
0190 
0195 
0197 
0198 
0199 
0200 
0201 
0205 
0206 
Oe11 
Oeil 
0212 
0215 
0217 
0222 
0222 
0224 
Q224 
Q224 
0225 
0226 
0227 
Q¢27 
0229 
0233 
0235 
0236 
0236 
0236 
0236 
0236 
0236 
0236 
0236 
0236 
0236 
0239 
0244 
0243 
0245 
0247 
0248 
0250 
0254 
0255 
0260 
0262 
0262 
0263 
0263 
0265 
0266 
0268 
0270 
0272 


COMMENT 


COMPLETES 


COMMENT 


END3 
IF TABLESsELBAT(PI,CLASS = 


COMMENT 


STOPDEF INES sFALSE; 


ENO; 
IF STOPDEFINE THEN GO COMPLETE} 
IF GTi 4 DEFINEDID THEN GO COMPLETES 
SETUP FOR DEFINED JOS = SEE DEFINEGEN FOR MORE DETAILS3 
IF TeADDRESS#O THEN TtaFIXDEFINEINFO(T)3 
IF DEFINEINDEX = 24 THEN 

BEGIN FLAGC139)3G0 ARGH END3 
DEF INEARRAY (DEF INE JNDEXJ SS, ASTUSED&T ADDRESS £182833315])3 
LASTUSEDESGIT(T)3 
DEF INEARRAYCDEFINETNDEX*2)1=262144xLCRENCRZ 
LCRISCNCRE ®MKABS(OEFINEARRAYCOEFINEINDEX41)]) +43 
PUTSEQNO(GT4pL CR) 
TURNONSTOPLIGHTC™€S "sl CRIS DEF INEINDEX!SDEF INEINDEX+3;3 
GO PERCENT: 


ELBATENXTELBTJ]33T3 
STOPDEFINESSFALSES COMMENT ALLOW DEFINES AGAIN; 
IF NXTELBTSENXTELBT4#1 > 74 THEN 
IP NOT MACROIO THEN 
BEGIN 
ELBAT IS FULL8 ADJUST IT3 
MOVECLOsSELBAT(6OSI]sEL BAT )3 
T'=]7653 PtaP"=653 NXTELBTS 8103 
END 
eo of Pr MxtELekt 
COMMENTV THEN 


Do wre 


ro) 


BEGIN 
SPECIAL HANDLING OF CONSTANTS FOR SAKE OF FUR STATEMENTS} 
CimINFOCOZELBATOCP}],.ADDRESS)3 
ELBATCPI.CLASS#® TABLES 3NONLITNO 

END3 

COMMENT ALLOW DEFINES 


END TABLE 3 


BOOLEAN PROCEDURE BOULPRIMS 


PRTC417) = BOOLPRIM 


FORWARD; 


PROCEDURE BOOLCOMP(B)3 BOOLEAN Bs FORWARD; 


PRT(420) = BOOLCOMP 


PRT(421) = NEXT 


STACK(F 43) 2 T 


INTEGER PROCEDURE NEXT 


BEGIN 
LABEL EXITS 


21 1S 


02892000 
02893000 
02894000 
02895000 
02896000 
02898000 
02899000 
02900000 
02901000 
02902000 
02903000 
02904000 
02905000 
02906000 
02909000 
02910000 
Q2911000 
02912000 
02913000 
02914000 
02915000 
02916000 
02917000 
02916000 
02919000 
02920000 
02921000 
02922000 
02923000 
02924000 
02925000 
02926000 
02927000 


321 LONG 


02955000 
02955500 
02956000 


02956500 
02957000 


START OF SEGMENT 


INTEGER T3 
DEFINE ERROR # BEGIN ENDSS 
SKAN3 
IF RESULT#3 THEN ERRORS % NUMBERS NOT ALLOWED? 
IF RESULT#2 THEN % SPECIAL CHARACTERe 
BEGIN 
TeaIF O2"120000" OR Qe"1%0000" THEN 20 & FAKE OUT BOULEXP, 
ELSE (CT##Q,(18%6)"2) &@ T642541453))3 
IF T#11 OR T219 OR T320 THEN BATMANS=SPECTALLT) & CedeUR & 


FLAG (603)5 GO EXIT 


02957500 


02958000 
02958500 
02959000 
02959500 
02960000 
02960500 
02961000 
02961500 


T 
T 
T 
J 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
i 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
r) 


T 


~ 


See ee ee ee 


0272 
0272 
0273 
0274 
0274 
0277 
0278 
0280 
0282 
0283 
0286 
0290 
0294 
0293 
0295 
0295 
0296 
0297 
0298 
0299 
0300 
0300 
0302 
0305 
0305 
0305 
0309 
0309 
0309 
0312 
0313 
0315 
0315 


NEXT SEG 


0205 
0205 
0205 


0205 
0205 
eer eS. 


0000 


0000 
0000 
0003 
0006 
0007 
0007 
0010 
0013 


3 


22 


ELSE FLAG(603)3 02962000 
GO EX]T 02962500 
END SPECIAL CHARACTERS3 02963000 
COMMENT LOOK FOR BOOLEAN OPERATORS» THEN OPTIONS 02963500 
Tis IF Q@=s"3NOTOO" THEN NOTQOP 02964000 
ELSE IF Qa"3AND00" THEN ANDOP 02964500 
ELSE IF Q@="20R000" THEN OROP 02965000 
ELSE IF Q&"3EQV0O0" THEN EQVOP 02965500 
ELSE 03 02966000 
IF T#0 THEN BATMAN,CLASS# AT 02966500 
ELSE BATMANs 34 & BOOTDC237) & REALCFINDOPTIONCY220131)4 & OPTIONe 02967000 
EXITs 02967500 
NEXT&eMYCLASStSBATMAN, CLASS} 02968000 
END NEXT3 02968500 
22 1S 46 LONG 
BOOLEAN PROCEDURE BOOLEXPS 02869000 
BEGIN 02969500 
BOOLEAN Bs 02970000 
START OF SEGMENT 
STACK(F 43) = B 
BtsBOOLPRIM3 02970500 
WHILE MYCLASS2EQVOP AND MYCLASSSANDOP DO BOOLCUMP(B)3 02971000 
BOOLEXP!=aB 02971500 
ENO BOOLEXP3 02972000 
23 1s 8 LONG 
BOOLEAN PROCEDURE BUOLPRIM3 02972500 
BEGIN 02973000 
BOOLEAN Bs KNOTS 02973500 
START OF SEGMENT 
STACK(F 43) 3 B 
STACK(F #4) = KNOT 
DEFINE SKIPIT *@ MYCLASSIBNEXT #3 02974000 
IF KNOTSSCNEXTSNOTOP) THEN SKIPIT3 02974500 
IF MYCLASS#LEFTPAREN THEN 02975000 
BEGIN 02975500 
BraBOOLEXPs 02976000 
IF MYCLASSARTPAREN THEN FLAG(604);3 02976500 
ENO 02977000 
ELSE IF MYCLASS4BO0OID THEN FLAG(601) 02977500 
ELSE BIRBATMAN<Q} 02978000 
IF KNOT THEN 88"NOT BS SKIPITS 02978500 
BOOLPRIMI#B 02979000 
END BOOLPRIM; 02979500 
24 1S 18 LONG 
PROCEDURE BOOLCOMP(B)3 BOOLEAN B3 02980000 


eee 


~~ 44H 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


T 


0017 
ou2t 
0022 
0022 
0022 
0023 
0025 
0027 
0029 
0031 
0032 
0042 
0043 
0044 
NEXT SEG 


0205 
0205 
0205 


eae kkhen 


0000 
0001 
0004 
0004 
NEXT SEG 


0205 
0205 
0205 


eaethewie 


0000 
0000 
0003 
0003 
0004 
0005 
0007 
0007 
0009 
0011 
0014 
0014 
NEXT SEG 


0205 


23 


24 


3 


BEGIN 
REAL OPCLASS3 


STACK(F 42) = OPCLASS 


BOOLEAN T3 


STACK(F 43) = T 


PRT( 422) 
PRT (423) 


PRT( 424) 


PRTC 425) | 


PRT(426) 


PRT (427) 
PRT( 430) 
PRT(431) 
PRT(432) 
PRT( 433) 
PRT(434) 
PRT(435) 
PRT( 436) 
PRT(437) 
PRT( 440) 
PRT(441) 


OPCLASS#3MYCLASS} 

TiaBOOLPRIMS 

WHILE OPCLASS<MYCLASS DU BOQLCOMPC(T)3 

Bis IF OPCLASSSANDOP THEN (B AND T) 
ELSE IF OPCLASS=OROP THEN (B OR T) 
ELSE (B EQV T)3 

END BOOLCOMPS 


% 
COMMENT HAMMERS EHH SR SERRRE REA ERO EAA ERA AAAR ARERR E RARE HR KERR ERR ER ERE 
FORWARD DECLARATIONS 

MERAH PERE RRAA AERA OREO R AERA RARER ERR EAC REA ARR EES ERAT AREA ARERR EES 
% 
PROCEDURE AEXPS FORWARDS 
AEXP 

PROCEDURE ARITHSECs FORWARD; 
ARITHSEC 

PROCEDURE 
SIMPARITH 

PROCEDYRE 
ARITHCOMP 

PROCEDURE 
PRIMARY 

DEFINE BEXP * AEXP#3 

INTEGER PROCEDURE EXPRSSS FORWARD} 
EXPRSS 

PROCEDURE POLISHERCEXPECT)3 
POLISHER 

PROCEDURE INLINES FORWARDS 
INLINE 

PROCEDURE SUBHANDCFROM)3 VALUE FROM; BOOLEAN FROM; FORWARD; 
SUBHAND 

PROCEDURE IOSTMT3 FORWARDS 
1OSTMT 

INTEGER PROCEDYRE IFEXPs FORWARD; 
IFEXP 

PROCEDYRE PARSES FORWARDS 
PARSE 

PROCEDURE DOTS FORWARDS 


SIMPARITMS FORWARD; 
ARITHCOMPS FORWARDS 


PRIMARYS FORWARD; 


VALUE EXPECTS REAL EXPECTs FORWARD; 


DOT 
PROCEDURE 

IFCLAUSE 
INTEGER PROCEOURE GETCSYLLABLE)4 VALUE SYLLABLES REAL SYLLABLES FORWARDS 


IFCLAUSEs FORWARD$ 


GET 

INTEGER PROCEDURE GNAT(L)$ VALUE 42 REAL LS FORWARD 
GNAT 

PROCEDURE PANA} FORWARDS 


START OF SEGMENT 


25 IS 


02980500 T 0205 
02981000 T Q205 
Tee SS 
02981500 7 0000 
02982000 T 0000 
02982500 T 0000 
02983000 T O00}4 
02983500 T 0v004 
02984000 T 0006 
02984500 T 0008 
02985000 T O011 
14 LONG» NEXT SEG 
02985500 T 0205 
02986000 T 0205 
02986500 T 0205 
02987000 T 0205 
02987500 T 0205 
03001000 T 0205 
03002000 T 0205 
03003000 T 0205 
03004000 T 0205 
03005000 T 0205 
03006000 T Q205 
03007000 T 0205 
03009000 7 0205 
03010000 y 0205 
03011000 Y 0205 
03012000 T 0205 
03013000 Tt O2£05 
03014000 T 0205 
03015000 T 0205 
03018000 T 0205 
03019000 T 0205 
03020000 T 0205 
03021000 T O205 


25 


3 


PRT(442) 


PR1T(443) 
PRT( 444) 


PRT(445) 
PRT(446) 
PRT( 447) 
PRT( 450) 
PRTC451) 
PRT(452) 
PRT(453) 


PRT (454) 


PRT(455) 
PRT(456) 
PRT(457) 
PRT( 460) 
PRT( 461) 


PRT (462) 


PRT( 463) 
PRT (464) 


PRT(465) 
PRT( 466) 
PRT(467) 
PRT (470) 


PRTC471) 


PANA 


PROCEDURE IFSTMTS FORWARD? 


IFSTMT 
PROCEDURE 
GOGEN 


GOGENCLABELBATsBRANCHTYPE)3 


VALUE LABELBATsBRANCHTYPES 
REAL LABELBAT»BRANCHTYPES FORWARDS 


BOOLEAN PROCEDURE SIMPGOQ3 FORWARD; 


SIMPGO 
PROCEDURE 
STMT 
PROCEDURE 
EMIT 
PROCEDURE 
PROCSTMT 
PROCEDURE 
STRMPROCSTMT 
PROCEDURE 
CONSTANTCLEAN 
PROCEDURE 
SCATTERELBAT 
PROCEDURE 
EMITB 


PROCEDURE 
VARTABLE 

PROCEDURE 
IMPFUN 


STMT3 FORWARDS 

EMITCSYLLABLE)S VALUE SYLLABLES REAL SYLLABLES FORWARDS 
PROCSTMTCFROM)s VALUE FROMS BOOLEAN FROMS FORWARDS 
STRMPROCSTMT4S FORWARDS 

CONSTANTCLEANS FORWARD; 

SCATTERELBATSs FORWARDS 

EMITBCBRANCH*FROMs TOWARDS) VALUE BRANCHsF ROMs TOWARDS 


INTEGER BRANCHsF ROMs TOWARDS’ FORWARD; 
VARIABLECFROM)3 INTEGER FROM} FORWARD} 


IMPFUNS FORWARD} 


PROCEDURE RIGHT(L)4 VALUE Ls INTEGER L# FORWARDS 


RIGHT 
PROCEDURE 
STREAMSTMT 


STREAMSTMT3 FORWARDS 


PROCEDURE SEGMENTSTART(B)S VALUE BsSBOOLEAN BSF ORWARD; 


SEGMENTSTART 


PROCEDURE SEGMENTCSIZEsFR)3 


SEGMENT 


INTEGER PROCEDURE BAE3 FURWARD3 


BAE 


PROCEDURE PROGUESCBLDR(AsBeCeDIVALUE As Bo CeD3 


PROGDESCBLOR 


PROCEDURE 
BANA 


INTEGER A»Co03 BOOLEAN B83 FORWARDS 
BANA FORWARDS 


PROCEDURE EMITNUMCA)$S VALUE AS REAL AZ FORWARD? 


EMITNUM 
PROCEQYRE 
EMITO 


EMITD (Asbo T)s VALUE ArBoTs INTEGER AsBe Ts FORWARDS 


INTEGER PROCEDURE GETSPACE(S»eL)3 VALUE SeL3 


GETSPACE 


PROCEDURE 
FORSTMT 


INTEGER LS BOQLEAN Ss FORWARD} 
FORSTMTS FORWARD; 


REAL PROCEQURE TAKECINDEX)3 VALUE INDEXS INTEGER INDEX’ FORWARDS 


PROCEDURE E3 


FORWARD3 


VALUE SIZEeFR3 INTEGER SIZE*sFRs FORWARDS 


03022000 
03023000 
03024000 
03025000 
03026000 
03027000 
03028000 
03029000 
03030000 
03034000 
03035000 
03036000 


03037000 
03038000 


03039000 
03039500 
03040000 
03041000 
03042000 
03043000 
03044000 
03045000 
03046000 
03047000 


03047100 
03048000 


03049000 
03050000 
03051000 


03051001 
03052000 


03053000 
03054000 


444 


ae an ee 


44 +74 4 oF 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


0205 
0205 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
Q205 
0205 


0205 
0205 


0205 
0205 
0205 


0205 
0205 


0205 
0205 


PRTC 472) 
PRT(473) 
PRT(474) 
PRT(475) 
PRT( 476) 
PRT(477) 
PRT(500) 
PRT(501) 


PRT(502) 


PRT(503) * EMITL 


PRT(S504) = EMITO 


PRT(S505) = EMITC 


PRT(506) = EMITV 


a 


PROCEOURE ENTRYCTYPE)S VALUE TYPESREAL TYPES FORWARDS 


PROCEQURE PUFNBUMPC(P$)3 VALUE P13 REAL P13 FORWARDS 


PUTNBUMP 


PROCEDURE JUMPCHKNXS FORWARDS 


JUMP CHKNX 


PROCEDURE JUMPCHKX4 FORWARD 


JUMPCHKX 


PROCEDURE DBLSTMT# FORWARD; 


DBLSTMT 


PROCEDYRE BLOCK(S)4 VALUE Ss BOOLEAN S3 FORWARD3 
PROCEDURE PURGECSTOPPERJA VALUE STOPPERSREAL STOPPERS FORWARDS 
PROCEDURE ENTERCTYPEV)3 


VALUE TYPEVS 
REAL TYPEVSFARWARD3 


COMMENT THIS SECTION CONTAINS THE EMITTERSe THEY ARE THE AGENTS WHICH 
ACTUALLY PRODUCE CUDE AND DEBUGING OUTPUTS 

COMMENT EMITL EMITS A LIT CALLE 

PROCEDURE EMITLCLITERALDS VALUE LITERALS INTEGER LITERAL3 


EMITCOSLITERALL 36838%10)); 


COMMENT EMITO EMIT AN OPERATORS 
PROCEDURE EMITOCOPERATOR)s VALUE OPERATORS INTEGER OPERATORS 


EMITCISOPERATOR( 36438310))3 


COMMENT EMITC IS PRIMARILY FOR USE BY STRMSTMT TO EMIT CHARACTUR MODE 
QPERATORS. HOWEVER IT ALSO HANDLES DIA» DIB» AND TRB; 
PROCEDURE EMITCCREPEATsOPERATOR)S VALUE REPEAT» OPERATORS 


INTEGER REPEATS OPERATOR} 
BEGIN 
IF REPEAT264 THEN FLAG(268)3 
EMIT COPERATOR&REPEAT(3614236)) END EMITCS 


COMMENT EMITV EMITS AN OPERAND CALL» IF THE AQDRESS IS FOR THE SECOND 
HALF OF THE PRT» THEN IT ALSO EMITS A PRTES 
PROCEDURE EMITVCADDRESS)3 VALUE ADDRESS INTEGER ADORESS3 


03055000 
03057000 
03038000 
03039000 
03060000 
03067000 
03068000 
03069000 


03070000 
03071000 
03072000 
03073000 
03074000 
03073000 
04000000 
04001000 
04002000 
04003000 


04004000 


04005000 
04006000 


04007000 


04008000 
04009000 
04010000 


04031000 
04012000 
04013000 
04014000 


04035000 


04016000 
04017000 


4 oo 


Se ee Nee eee ee ee ee ee 


—~ 


i 


4-4 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 
0205 


0205 


0207 
0207 


0207 


0209 
0209 
0209 


0209 
0209 
0209 
Oeh1 


0213 
0213 
0213 


BEGIN IF ADORESS > 1023 THEN EMITOCPRTEDS 
EMITC2 & ADDRESS (36838810)) END EmITv3 


COMMENT EMIEN EMITS A DESCRIPTOR CALLe IF THE ADDRESS IS FOR THE 
SECOND HALF OF THE PRT» THEN IT ALSO EMITS A PRTES 
PROCEDURE EMITNCADDRESS)4 VALUE ADDRESS3 INTEGER ADDRESS3 
PRT(507) ® EMITN 
BEGIN IF ADDRESS > 1023 THEN EMITOCPRTE)3 
EMITC3 & ADDRESS (36%38840)) END EMITNS 


COMMENT EMITPAITR EMITS A LITC ADDRESS FULLOWED BY QPEKATORs» IF THE 
ADDRESS IS FOR THE SECOND HALF UF THE PRT» THEN IT abso 
EMITS PRTES 
PROCEDURE EMITPAIRCADDRESSs OPERATORS 
PRT(510) = EMITPAIR 
VALUE ADDRESS» OPERATOR} 
INTEGER ADDRESS» OPERATORS 
BEGIN 
EMITLCADDRESS D3 
IF ADORESS > 1023 THEN EMITOCPRTEDS 
EMITOCOPERATOR) END EMITPAIRS 


COMMENT ADJUST ADWUST & TO THE BEGINING OF A WORD AND FILLS IN THE 
INERVENING SPACE WITH NOPSe IT CHECKS STREAMTOG TO DECIDE 
WHICH SORT OF NOP TO USES 
PROCEDURE ADJUSTS 
PRT(S11) = ADJUST 
BEGIN 


WHILE &,046828)40 00 EMITC45)3 
END ADJUSTS 


PROCEDURE EMITLNGS 
PRT(512) @ EMITLNG 
BEGIN LABEL FE 


IF NOT LINKTOG THEN GO TO E3 


COMMENT GO TO E IF LAST THING IS A LINK; 
IF GET(L) # 0 THEN GO TO E3 
COMMENT EITHER LAST EXPRESSION WAS CONDITIONAL OR THERE IS NO 


LNG OR RELATIONAL OPERATOR; 
IF GTi © GETCL*1) = 77 THEN L © L#1 
COMMENT LAST THING WAS AN LNG = SO CANCEL ITS 
ELSE IF GT1el4286)521 AND GT1.(3782]80 THEN % AHA 
COMMENT LAST THING WAS A RELATIONALS 


04018000 
04019000 


04020000 
04021000 
04022000 


04023000 
049024000 


04025000 
04026000 
04027000 
04028000 


04029000 
04030000 
04031000 
04032000 
04033000 
04034000 


04080000 
04081000 
04082000 
04083000 


04084000 
04985000 


04086000 
04987000 


04098000 
04099000 


START OF SEGMENT 


04100000 
04101000 
04102000 
04103000 
04104000 
04105000 
04106000 
04107000 
04108000 


ttt Ht qa4 a4 


44-444 


+--+ 4 


T 
T 


eeuereetetan 


| 


0213 
Qeis 


0217 
0217 
0217 


0217 
0219 


Oe21 
O¢el 


0224 
Qe21 


Oe2y 
O2e1 
O221 
0221 
0221 
Q¢23 


Oe24 
0224 
0224 
0224 


0224 
0224 
Q224 
0228 


0228 
0228 


0900 
0000 
0000 
0002 
0002 
0002 
0005 
0005 
0009 


BEGIN LeLeis EMI TOCREALCBOULEANCGT1e0636%10)) EQV 
BOOLEANCIF GTieC4082) = O THEN 511 ELSE 463))) 
COMMENT NEGATE THE RELATIONAL END ELSE 
E: EMITOCLNG) END EMITLNGS 


COMMENT EMITB EMITS A BRANCH OPERATOR AND ITS ASSOCIATED NUMBERS 
PROCEDURE EMITBCBRANCHsFROMs TOWARDS) 3 
VALUE BRANCHsFROMs TOWARDS3 
INTEGER BRANCHs F ROMs TOWARDS 
BEGIN 
INTEGER Ths 


STACK(F 42) = TL 
TL ¢ Ls 
IF TOWARDS > FOULEU THEN FOULED + TOWARDS; 
L * FROM@=23 
GT1 © TOWARDS=FRUMs 
IF TOWARDS,[4682) = 0 
THEN BEGIN 
BRANCH © BRANCH&1L39247821)3 
GT1 © TOWARDS DIV 4 © (FROM™1) DIV 4 ENDS 
EME TNUMCABS(GT1) 23 
EMITOCBRANCHACREALC(GT12 0791904214612); 


Loe TL 
END EMITBS 


COMMENT DEBUGWORD FORMATS TWO FIELDS FOR DEBUGGING QUTPUT IN 
OCTALs NAMELY 3 
de 4 CHARACTERS FOR THE L REGISTER, 
2016 GHARACTERS FOR THE WORD BEING EMITTEDe 3 
STREAM PROCEDURE OEBUGWORD( SEWsCQODEsFEIL)3 VALUE SE@sCODE 3 


PRT(513) * DEBUGWORD 

BEGIN 
DI©FEILS ST* LOC SEQ3 Sle SI+43 DS © 4 CHR 
O$ © 2 LIT" "5 
ST * LOC CODE 3 
16¢ 0S ¢« 3 RESETS 3¢ IF SB THEN OS*SET ELSE 

DS « RESET 3 SKIP 1 SB))3 
2a9cpS ¢ 2 LIT” ™ 93 
END & 


COMMENT EMIJTWURD PLACES THE PARAMETER» *"WORD"s INTO EDUC, YF 
DEBUGGING TS REQUIREDs "L" AND "WORD" ARE OUTPUT ON 
THE PRINTER FILE IN QCTAL FORMAT, ; 

PROCEDURE EMITWORD (WORD) VALVE WORDS REAL WORDS 


26 1S 


04109000 7 
04110000 T 
04111000 T 
04112000 fT 

18 LONG, 


04113000 T 
04114000 Tf 
04115000 T 
04116000 T 
04117000 T 
04118000 T 

* 


START OF SEGMENT 


e7 1S 


04119000 
04119500 
04420000 
04120100 
04120200 
04120300 
04120400 
04420500 
04121000 
04122000 
04123000 
04124000 
04125000 
19 LONG 


Se ee eee 


04126000 
04127000 
04128000 
04129000 
04130000 


04131000 
04132000 
04133000 
04134000 
043335000 
04136000 
08137000 
04138000 


AA HHoHH HH HHH Ht 


04139000 
04140000 


04141000 
04142000 


4-4-4 


0009 
0012 
0015 
0015 
NEXT SEG 


0228 
0¢26 
0228 
0228 
0228 
0228 


kee D ERED 


0000 
0000 
0002 
0004 
0005 
0006 
0007 
0008 
0011 
0012 
0045 
0015 
0015 
NEXT SEG 


0228 
0228 
0228 
0228 
0228 


0228 
0229 
0230 
0230 
0230 
0232 
0233 
0234 


Oe34 
0234 
0234 
0234 


3 


27 


3 


PRT(514) © EMI TWORD 


PRT(515) =& 


STACK(F 42) 
STACK (CF 43) 
STACK(F +4) 
STACK(F 45) 


STACK(F 46) 


BEGIN 

ADJUST 

IF L2 4088 THEN BEGIN ERR(200)3 LeQd END 
ELSE BEGIN 


MOVECL1»WORUs CODECL DIV 444))3 
IF DEBUGTOG THEN 
BEGIN DEBUGWNORD(B20(L) »WORDsLIN)’ 
WRITELINE ENDS 
¢ Lb © 443 END 
D3 


COMMENT CONSTANTCLEAN IS CALLED AFTER AN UNCONDITIUNAL BRANCH HaS 


BEEN EMITTEDe IF ANY CONSTANTS HAVE BEEN ACCUMULATED BY 
EMITNUM IN INFOCOs*)» CONSTANTCLEAN WILL FIX THE CKAIN 
OF CeRELATIVE QPOC S LEFT BY EMITNUMe IF C#RELATIVE 
ADDRESSING IS IMPQSSIBLE (IeEe THE ADDRESS 

IF GREATER THAN 127 WORDS) THEN THE CONSTANT ALONG WITH 
THE &ST INK OF THE OPDC CHAIN IS ENTERED IN INFO, 

AT PURGE TIME THE REMAINING OPOC S ARE EMITTED WITH 

F *RELATIVE ADDRESSING AND CODE EMITTED TU STORE THE 
CONSTANTS INTO THE PROPER FeRELATIVE CELLS. 3 


PROCEDYRE CONSTANTCLEAN 3 


IF MRCLEAN THEN 
BEGIN 
INTEGER Js TEMPL > DaLINKs 


*SEGMENT DESCRIPTOR* 


nina t 


J 
TEMPL 
9) 
LINK 


CREL 


BUOLEAN CREL3 


LABEL ALLTHU 4 
FOR J © 1 STEP 2 UNTIL LASTENTRY 00 
BEGIN 
ADJUSTS TEMPLeLS LeINFOCOse55°Ue1I)3 
CREL © FALSES 
00 BEGIN 
IF DeCTEMPL®L4#3)DI1V 42128 THEN 
IF MODE # O THEN 


BEGIN FLAG(C50)3 GO TO ALLTHU END; 


LINK#GET(L)3 
CREL © TRUE 
IF MODE # O THEN EMITV(D4768) ELSE 
EMITVCREALCTEMPL22048)x10244TEMPL DIV 4)3 
END UNTIL Le LINK z 4095 3} 


04143000 
04144000 
04143000 
04146000 
08147000 
04148000 
04449000 
04150000 


04151000 
04152000 


04153000 


04154000 
04155000 
04156000 
04157000 
04158000 
04159000 
04160000 
04161000 
04162000 
04163000 
04164000 
04165000 
04166000 


START OF SEGMENT 


04167000 


04168000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04175500 
04176000 
04177000 
04178000 
04179000 
04180000 
04161000 
04182000 
04183000 
04184000 
04184500 
04185000 


AA HHH HHH 


AHH tH ts 


HAAN RHE 


AHHH Ht st 


0234 
0234 
0235 
0238 
0240 
0245 
0245 
0248 
0258 
0260 


0260 


0260 
0260 
0260 
0260 
0260 
0260 
0260 
0260 
0260 
0260 
0260 
0264 
0264 


0000 


0000 
0000 
0000 
0004 
O00; 
0005 
Q005 
0006 
0008 
0010 
O0LL 
0014 
0011 
O01 
OO1L 
0011 
0013 
0013 
0016 
0019 


ALL THUS 


EN 
PRT(516) *® *SEGMENT DESCRIPTOR* 


COMMENT 


PROCEDYRE EMITNUM 
BEG! 


STACK(Fe2) = N 


IF C 
ELSE 


IF 


FOUND? 
FINISHEDIEND 
COMMENT SEAR 


L * TEMPLS 


IF CREL THEN EMITWORDC INFOCOs255"y 193 
ENDS 
LASTENTRY © 03 
D3 


EMITNUM HANDLES THE EMISSION OF CODE FOR CONSTANTSsBOTH 


EXPLICIT AND IMPLICITe IN EVERY CASE*EMITNUM WILL 
PRODUCE CODE TO GET THE DESIRED CONSTANT ON TOP OF 
THE STACKe IF THE NUMBER IS A LITERAL A SIMPLE LITC 
SYLLABLE IS PRODUCED, HOWEVERsNON@LITERALS ARE KEPT 
TIN THE ZERO*TH ROW OF INFO WITH THE SYLLABLE 
POSITIONsL. THE FIRST EMITNUM ON A PARTICULAR 
CONSTANT CAUSES THE VALUES OF L AND THE CONSTANT 

TO BE STORED IN INFOCOs*) (NOTESTTEMS ARE STORED 

IN REVERSE STARTING WITH INFOCOs#255) ETC ede THEN 
ITS THE JOB OF CONSTANTCLEAN TO EMIT THE ACTUAL 
OPDG (SEE CONSTANTCLEAN PROCEDURE FOR DETAILS) 3 

€ C 23 VALUE C4 REAL C3 
N LABEL FINISHEDsFOUND 3 REAL N3 


o€1937)30 THEN EMITLCC) 


BEGIN 
FOULED © U3 
FOR N © 4 STEP 2 UNTIL LASTENTRY 00 
INFOCOs255"N) = C THEN GO TO FOUND 3 
INFOLO2255 *LASTENTRY] © L5 
INFOLOs255 =LASTENTRY@1)© © 3 
EMITNC1023)3 
IF MODESO THEN EMITOCNOP)s 
LINKTOG*FALSES 
IF LASTENTRY © LASTENTRY*2 2 
BEGIN 
C + BUMPLS 
CONSTANTCLEANS 
EMITBCBFWsCoh)3 
ENDS 
GO TO FINISHED: 
EMITCINFOLOs 255 =Ne1))3 
LINKTOG*FALSES 
INFOCO,255°NelJ© Lot; 
IF MODE#O THEN EMITOCNOP)3 


128 THEN 


END) 
EMITNUM 3 
CH PERFORMS A BINARY SEARCH ON THE COP ANDO wWOP 


2a Is 


START OF SEGMENT 


29 IS 


04166000 
04187000 
04188000 
04189000 
04190000 


444 


33 LONGs 


04191000 
04192000 
04193000 
04194000 
04195000 
04196000 
04197000 
04198000 
04199000 
04200000 
04201000 
04202000 
04203000 
042046000 


| ee foe Nee Nee ee ee ee ee 


04205000 T 
04806000 T 
O4207000 T 
04207500 T 
04808000 T 
04209000 T 
04210000 7 
04211000 T 
04212000 T 
04812100 7 
04213000 T 
04214000 T 
04215000 fT 
04216000 T 
04217000 T 
04218000 fT 
04219000 T 
04220000 T 
04221000 T 
04222000 fT 
04223000 T 
04223100 T 
04224000 T 
04225000 T 

38 LONG, 


04226000 T 


0021 
0022 
0025 
0028 
0028 


NEXT SEG 


0266 
0266 
0266 
0266 
0266 
0266 
0266 
0266 
0466 
0266 
0266 
0266 
0266 
0266 
ket hhe the 


0000 
0002 
0003 
0003 
0004 
0005 
0010 
0012 
0015 
0016 
0018 
O019 
0020 
0024 
0023 
0023 
0024 
0024 
0025 
0028 
0029 
0033 
0035 
0035 
NEXT SEG 


0266 


3 


29 


3 


PRT(517) ® SEARCH 


STACK(F #3) & N 
STACK(F 44) = I 


PRT(S20) = PACK 


ALPHA 


ARRAYSe GIVEN THE UPERATOR BITS SEARCH YIELDS THE BCO 
MNEUMONIC FOR THAT OPERATOR. IF THE OPERATOR CANNOT 
BE FUUND SEARCH YIELDS BLANKS, 


NOTES DIAsDIBsTRB ARE RETURNED AS BLANKS. 
ALPHA PROCEDURE SEARCH (QsKEY)3 VALUE KEYS ARRAY QLO)3 REAL KEY ; 

BEGIN LABEL L3 

COMMENT GT1 AND GT2 ARE INITIALIZED ASSUMMING THAT Q IS ORDERED 
BY PATRS CARGUMENT#FUNCTION*s ARGUMENTsFUNCTIONSETCe) 
AND THAT THE FIRST ARGUMENT IS IN QC€4]-e FURTHERMORE 
THE LENGTH OF @ IS 128, i 
INTEGER Nol 3 
N © 64 3} 
FOR 1 © 66 STEP IF QCIJ<KEY THEN N ELSE @ N 

WHILE NeN DIV 2 2 3 DO 
IF QC I 3% KEY THEN GO TOL ; 
I «03 COMMENT ARGUMENT NOT FOUNDsSEARCHRQL1] 5 
U3 SEARCH*QL [ +4) 3 

END SEARCH 3 

COMMENT B2D CONVERTS THE FOUR LOw ORDER OCTAL DIGITS TO BCD 
CODE 3 

PROCEDURE B20(B)s VALVE BS REAL B3 

B2D¢06B(4524533)8BL 393422 3)8803383933)8KL 2783683) § 

COMMENT PACK JS A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 


INTO THE EDOC ARRAY. THE SPECIFIC ELEMENT OF EDOC 

IS PRECISILY # EDOCCCL DIV 4) DIV 1280¢< DIV 4)M0D 128) 
SYLLABLE POSITION®(L MOD 4 )» WHERE & 15 THE SYLLABLE 
NUMBER RELATIVE TO THE BEGINNING OF THE SEGMENTS 


STREAM PROCEDURE PACKCWORDsPOSITIONs SYLLABLE); 


VALUE POSITION» SYLLABLES 
BEGIN 

DI*WORD J DY & DI*POSITION 3; 
ST*LOC SYLLABLE 3 ST¢S1+6; 
OS¢2 CHR 3 

END PACK 3 


OI © DI+POSITIONs 


COMMENT DEBUG PRINTS QUT OBYECT CODE IF "QEBUGN” IS SET; 
PROCEDURE DEBUG(S}4 VALUE S} REAL S3 


PRT(521) = DEBUG 


BEGIN 


REAL Tis 


04227000 
04228000 
04229000 
04230000 
04231000 


04232000 


START OF SEGMENT 


30 IS 


04233000 
04234000 
04235000 
04236000 
04237000 


04238000 
04239000 
04240000 
04241000 
04242000 
04243000 
04244000 


16 LONG 


04245000 


04246000 
04247000 
04248000 


04265000 
04266000 
04267000 
04268000 
04269000 
04270000 


04271000 
04272000 
04273000 
04274000 
04275000 
04276000 


04977000 
04977500 


04278000 


START OF SEGMENT 


a) 


i | wt te st re ee) 


See 


ee 


e-~4 «49 


0266 
0266 
0266 
0266 
0266 


0266 


eee kak 


0000 
0000 
0000 
0000 
0000 


0000 
Q000 
Q005 
0009 
0011 
O01! 
0013 
NEXT SEG 


0266 
0266 
0266 
0266 


Oe74a 
0274 
0274 
0274 
Oa7Ta 
0274 


0274 
0274 
0275 
0276 
0276 
O27? 


0277 
0e?7 


0277 


ratte hek 


30 


3 


31 


STACK(F42) = TI 
IF SINGLTOG THEN 
WRITECLINE s BUGS B2D(L)» 
LABELs OR SEGMENT DESCRIPTOR*« 
IF STREAMTOG THEN 
SEARCHCCOPsS,(4226)) 
ELSE IF T18S,046%2) 41 THEN SEARCHCWOPSS,£36%10)) 
ELSE WOPET1) » IF STREAMTOG THEN 
B20(S,03616)) ELSE JF Ti*}% THEN WOPE1) 
ELSE B20¢S.0636010)])sB20¢(S)) 
ELSE WRITECLINEs BUGsB2D(L)>» 
*LISTs LABEL, OR SEGMENT DESCRIPTOR® 
IF STREAMTOG THEN 
SEARCH(COPsS,(42:6)) 
ELSE IF T1s8S,C46t2]2=1 THEN SEARCHCWOPsS.f 36410)) 
ELSE WOPCT1) » IF STREAMTOG THEN 
B20(6Sef3686)) ELSE IF T1*% THEN WOPL1) 
ELSE B820¢5e036%10))sB2D¢S))3 


PRT(522) = *LIST» 


PRT(523) = 


END DEBUG 

COMMENT EMIT PLACES SYLLABLES INTO EDOCs CALLS DEBUG FOR 
DEBUGGING OYVTPUT ON THE PRINTER» AND CHECKS FOR SEGMENTS 
GREATER THAN 4093 SYLLABLES, 3 

PROCEDURE EMIT ¢ S 2 4 VALUE S3 REAL 5 3 

BEGIN 
IF & < 4088 THEN 
BEGIN 


LINKTOG * TRUE3 
PACK(CODECK DIV Gt roLba6s2)eS)3 
IF DEBUGTOG THEN OEBUG(S); 


Lebeds 
ENO ELSE 
BEGIN ERR(200)3 Lels ENDS 

COMMENT 200 EMIT = SEGMENT GREATER THAN 4093 SYLLABLES #3 
END EMIT 3 

COMMENT  EmMITO EMITS THE DIA,DIB,TRB SEQUENCE OF CODEs THE 
PREVIUUS SETTING OF THE GeH AND KeV¥ REGISTERS JS COMPARED 
THE CURRENT ¢ IF THE GeHeK*V OR BOTH ARE ALREADY SET THEN 
THE APPROLATE SYLLABLE(S) ARE OMITTED 
IF 0 BITS ARE TO BE TRANSFERED THEN NO SYLLABLES ARE 
EMITTED ; 

PROCEDURE EMITOCAsBsT)3 VALVE AsBoT 3 INTEGER Ap BT; 


BEGIN LABEL EXITsNORMAL3S 


REAL QJ 
STACK(F 42) # Q 
IF T ® 15 THEN 
BEGIN 
IF A # 33 THEN @ © 512 


31°15 


04278500 
04279000 


04279500 
04280000 
04280500 
04281000 
04281500 
04282000 
04282500 


04263000 
04283500 
04284000 
04284500 
04285000 
042865500 
04286000 


64 LONG 


04888000 
04289000 
04290000 
04291000 
04292000 
04293000 
04294000 
04895000 
04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 


04305000 
04306000 
0a307000 
Q4208000 
04309000 
0#310000 
043141000 
04311010 


START OF SEGMENT 


04311020 


04311030 
04811040 
04311050 


eee eee ee i 


T 
T 
t 
T 
T 
T 
T 
s 


Se ee Bee ee ee ee ee 


ee ee 


+~--4 


0000 
0000 


0008 
0009 
0010 
Q015 
0019 
0023 
0027 


0038 
0039 
0040 
004§ 
0049 
0053 
0061 


NEXT SEG 


0277 
0277 
0277 
0¢7? 
0277 
0277 
0278 
0279 
0280 
0¢85 
0287 
0¢88 
0288 
0292 
0292 


0292 
Qe92 
0292 
0292 
O292 
0292 
0292 
0292 
eee ee 


0000 


0000 
0000 
0u04 


3 


3e 


ELSE JF A # 18 THEN GO TO NORMAL; 04311060 T QVUO2 

IF B # 18 THEN Q ¢ Q4256 04811070 Tt 0005 

ELSE IF B 4 33 THEN GO TO NORMAL3 043811080 T OU06 

EMITOCQ4197)3 COMMENT *= THIS GETS OUT FIXED FIELDS 04311090 7 0009 

GO TO EXIT; 04311100 T OQto 

END} O4311210 Tf OO11 

NORMAL? 04311120 T OOty4 

IF T# 0 THEN 04312000 TY O014 

BEGIN 04313000 T 0011 

04814000 t ov12 

EMITCCCOTALACA) DIV 6)x512 + € Ae A MOD 6)x 64 + DIADS 04315000 tT O00{%2 

04916000 T 0017 

EMITCCCOIALB*B) DIV 6)x512 + € Be B MOD 6)x 64 + DIB)3 04317000 fT 0017 

EMITCTRB*64xT)3 04318000 T O02, 

04319000 T 0023 

04820000 T 0023 

04321000 T 0023 

ENO EMITD 3 04322000 T 0023 

EXIT? END3 04322100 T 0v23 
32 IS a7 \ONGe NEXT SEG 3 


PRQCEOYRE EMITICE»A2B)s VALUE Eo As Bs REAL Es AaB; 04500000 T VQ2e92 
PRT(524) = EMITI 
BEGIN LABEL EXITslIS3 04501000 Tf OQ292 
START OF SEGMENT weeweeetae 33 
INTEGER SeTleta; 04802000 fT 0000 
STACK(Fe2) = § 
STACK(F 43) = Ti 
STACK(F 44) = T2 
PROCEDURE EMIT21(¢E*B)3 VALUE ErB3 049803000 T 0000 
PRT(525) # EMIT2i 
REAL E3 04804000 y 0000 
BOOLEAN B83 04805000 T 9000 
BEGIN IF E * O THEN 04506000 T Q000 
BEGIN JF B THEN EMITOCXCH)3 END 04507000 TF 0000 
ELSE BEGIN GT1 ¢ Ee ADDRESS 04508000 fT 0002 
IF —€ © E,CLASS $ INTIQ THEN 04909000 T 0004 
EMITVCGT1) 04521000 T 0006 
ELSE IF E&€ S$ INTARRAYIO THEN Q4822000 T 0007 
EMITPAIR(GT1sL00) ELSE 04923000 TY 9008 
EMITNC(GT1) 04824000 T 0010 
END 04825000 T O01]4 
ENDI 04826000 T O01 
IF 8 8 O THEN 04926100 7 00%; 
BEGIN EMIT2LCEsFALSE)3 GO TO EXIT ENDS 04526200 T 0012 
IF STACKCT #4 Q THEN GO TO IS3 QO4827000 T 0014 
If B * 15 THEN 04528000 T 0016 
BEGIN JF A°’® 33 THEN 04929000 T 0016 
BEGIN EMT T21¢CEeFALSE)3 04930000 T 0018 
EMITCO)s EMITOCINX)3 04831000 T 0019 


PRT(526) 
PRT(527) 
PRT(530) 


GO TO Ex{T3 
ENDS 
IF A = 48 THEN 
BEGIN EMIT(Q)3 
EMIT21CEs TRUE )S 
EMITOC197)3 
GO TO EXIT; 
ENQA 
GO TO I$3 
ENDI 
If B S$ 10 AND A#B = 48 THEN 
BEGIN EMIT2Z1 (CEs FALSE )3 
EMITLCe*Be) )3 


EMITOCLNOD3 
GO TO EXITS 


END; 
IF (3 © (48"A"B) MOD 6)48 S$ 39 THEN 
BEGIN EMIT21CEsFALSE)3 
EMITCT2¢(TL¢CA OLV 6)x5124(A MUD 6)xO4eDT ADS 
EMITCCCASB91) DIV 6 @Thod )x5124604xS437 )3 
GO TO EXIT; 
ENDS 
EMITCODS 
EMIT21 (CEs TRUE) 
EMITO(As48"65B8)3 


1S3 


EXIT’ ENDS 
33 1S 


COMMENT THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES3 
COMMENT STEPI AND STEPIT ARE SHORT CALLS ON TABLES 
PROCEDURE STEPIT3 ELCLASS « TABLE CI ol 4493 


PRT(531) *® STEPIT 


INTEGER PROCEDURE STEPIS STEPI©ELCLASS+TABLECIo141)3 


PRT(532) = STEP] 


COMMENT TAKE FETCHS A WORD FROM INFOS 
REAL PROCEDURE TAKECINDEX)$ VALUE INDExs INTEGER INDEXS 
TAKE © INFOCINDEX sHINKRs INDEX eLINKCI3 


COMMENT PUT PLACES A WORD INTO INFOS 


04532000 
04533000 
04534000 
04835000 
04536000 
04537000 
04938000 
04839000 
04840000 
04541000 
04942000 
04843000 
04844000 


04545000 
04846000 
04347000 
04948000 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04555000 
04556000 
04557000 
04358000 


$7 LONG 


05000000 
0§001000 
05002000 


05003000 


05004000 
03005000 
05006000 


05007000 


tt ttt ts 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
o 


+ 


4-4 


0021 
0021 
0024 
0022 
0023 
0024 
0025 
0025 
0025 
0026 
0026 
0028 
0030 


0033 
0034 
0034 
0034 
0038 
0039 
0044 
0049 
0050 
0050 
0054 
0052 
0053 
0053 

NEXT SEG 


0307 


3 


PROCEDURE PUTCWORD»INDEX)S VALUE WORD»INDEXS REAL WORD, INUEX3 05008000 T 0307 
PRT(533) = PUT 


INFOCTINDEXeLINKRe INDEX ,LINKC)] © WORDS 06009000 T Q307 

COMMENT FLAG FLAGS ERROR MESSAGES» COUNTS THEM AND SUPPRESS FUTURE 05010000 T 0311 

ERROR MESSAGES UNTIL THE COMPILER THINKS IT HAS RECOVERED; 05011000 fT O311 

PROCEDURE FLAGCERRNUM)2 VALUE ERRNUMS INTEGER ERRNUMS 05012000 ft 0314 

BEGIN 050133000 Tf 0314; 

COMMENT WRITERROR IS THE STREAM PROCEDURE WHICH ACTUALLY PRODUCES 05014000 fT O314 

THE ERROR MESSAGE ON THE PRINTERS 05045000 T O314 

STREAM PROCEDURE WRITERRORCERRNUMs ACCUMeLINEs COUNT@LSTSEQ)3 05916000 rT O3114 
START OF SEGMENT weewteenen 34 

PRT(534) © WRITERROR 

VALUE ERRNUMsCOUNTS 05017000 TY 0000 

BEGIN 05018000 fr 0000 

DI © LINES 44CDSe*2L1T" ")5 COMMENT CLEAR BUFFERS 05019000 T 0000 

SI eLSTSEQs3 SI * SI*83 DS e#WDS3 05020000 T 0004 

ST © LINEZ OS ¢ 2 WOS3 08021000 T 0002 

4(OS © 2 LIT "XX")3 COMMENT SET RIGHT MARGIN FLAG} 05022000 fr 0002 

SI ¢ LSTSEQs O1 ¢ LSTSEQs DI © DOJ"8s OS © WOS3 05023000 T 0003 

DI © LINES OL © DI*83 COMMENT INDENT MESSAGE3 05024000 7 0004 

OS © 13 LIT "ERROR NUMBER "3 05025000 7 0005 

SIoe¢ LOC ERRNUMS OS * 3 DEC3 COMMENT CONVERT ERRNUM3 05026000 T 0007 

OS « SLIT ™ =e 3 05027000 Tt 0007 

ST « ACCUM; SI © SI4#33 DS © COUNT CHR 08028000 T 0008 

COMMENT PLACE ALPHA IN BUFFER; 05029000 7 0009 

OS ¢ LIT "™," 08030000 T 0009 

END WRITERRORS 05031000 ~r 0009 

IF ERRORTOG TREN & OO NOTHING IF WE SUPPRESS MSSGS-e 05032000 T 0010 

BEGIN 05033000 T 0010 

SPECTOG 33 FALSE; 05034000 T O10 

ERRORCOUNT $@ ERRORCOUNT+14 COMMENT COUNT ERRORS; 06035000 T 0014 

IF NOT LISTER THEN 05036000 T 0012 

BEGIN 05037000 + 0013 

EDITLINECLINOFCReL DIV Sab el4Ob2) »MEDIUMS0)3 05038000 fT 0013 

MOVEC 1» INFOCLASTSEQROWsLASTSEQUENCE J LINC 12I])3 05039500 fT 0017 

IF NOHEADING THEN DATIMES WRITELINES 05039600 fT 0019 

END3 050461000 T 0034 

COMMENT PRINT CARDIMAGE IF WE ARE NOT LISTING3 050462000 fT 0034 

ACCUMC1] © Q3 COMMENT RESTORE ACCUMULATOR: 05043000 t 0034 

WRITERRORCERRNUMSACCUMCIJeL ING WI) eOel12tels 05044000 T 0032 

INFOCLASTSEQROWsLASTSEQUENCE 223 05045000 T 0034 

IF NOT NOHEADING THEN WRITELINE 3 0§046000 T 0036 

ERRORTOG ¢ FALSES COMMENT INHIBIT MESSAGES; 0547000 fT 0047 

IF PUNCHTOG THEN 08048000 TY QO0U48 

BEGIN REAL Ti1eT2sT3eT4s LABEL Lek deEXIT3 05049000 T 0048 


PRT(535) © *SEGMENT DESCRIPTOR« 

START OF SEGMENT weutwwnwwe 35 
STACK(F42) # Tl 
STACK(F +3) & T2 


STACK(F 44) & T3 
STACK(F 45) & T4 


PRT(536) = Pi 


PRT(537) = P2 


PRT(540) # ABS 


STREAM PROCEDURE PiCLsP)s VALUE P3 


BEGIN DI ¢« Lé I5CDSe8L IT" ")5 
SI ¢ LOC Ps DIeLs SIleSI+53 SKIP 3 SB 
5 
CDS¢3 RESETS 3CIF SB THEN DS*SET ELSE DS#RESETASKIP 4 SB))23 
STep3 
Dileple23; 2¢8 
COSe3 RESETS3CIF SB THEN DSe*SET ELSE DSeRESETSSKIP 1 SB))3 


DSe#L IT" ") ENDS 


STREAM PROCEDURE P2(LeP)s VALUE P3 


BEGIN DI*Ls OL *O1+26s0SeLIT"0"; 
STe¢Ms SleSis2s SKIP 15683 


3 
COSe3 RESETI3CIF SB THEN OSe*SET ELSE DS*RESETASKIP 4 $B))3 
END3 


REA, STREAM PROCEDURE ABSC(A)} VALUE AS 


BEGIN DI © LOG ABSs SI eas OSe WOSsOI+DI°83 OSeRESET ENDS 


STREAM PROCEDURE BITEDUSTCxsNeIDsLINEsCOUNT)3 VALUE ID»NsCQUNTS 


PRT(541) = BITEDUST 


BEGIN LOCAL TeFet} 
OIeLOG Fs SI*®LINES DSewOSsDI oF; 
ST*LOC IDsS]@Sr+#2s0S¢ G6CHRS 57(0S"€2 LIT" ")3 
St ¢ |40C COUNT sSI*SI48 3 
OT] #40C KH 3 DS eWOS 5 
DI « LOC LINE 3 SI © WS 
ST#L0@ XJSKIP 2 SB3 
Ip SB THEN 
BEGIN S1¢#X3 TeSI3 


N¢ 
DIeLOG Fs SIe*LINES OS*wOSsDIeF; 
Ste LOC COUNTS SI#S1463 
4 
(DS¢3 RESETS3CIF SB THEN OS*SET ELSE DS*RESETSSKIP 1 5B))3 
OSe2 LIT" "$3 ST@COUNTS SIeSI*4SsSCOUNT#ST3 


SleyT} 
6(2(8 
(DSe3 RESETI3ACIF SB THEN DSeSET ELSE DSeRESETSSKIP 1 SB))3 
DSe LIT ")3 OSeLIT™ " 93 
DI * LOC LINE 3s SIT © wi 
STeTsSIleST+48sTeSIIJEND END; 


05050000 


05051000 
05052000 
05053000 
08054000 
03055000 
05056000 
0$057000 
05058000 


0$059000 


0§060000 
05061000 
05062000 
05063000 


05064000 


08065000 


08066000 


08067000 


05068000 
05069000 
03970000 
05071000 
05074100 
0§071200 
05072000 
09973000 
05074000 
05075000 
0§076000 
05977000 
05078000 
08079000 
05080000 
08081000 
05082000 
08083000 
03084000 
05065000 
05086000 


ees Nee Nee Be ee ee 


~ 


+444 


4 


met a at a st st a 


0000 


0000 
0002 
0003 
0003 
0005 
0006 
0006 
0009 


0010 


0010 
0012 
00142 
Q012 
0045 


0015 


0015 


0018 


0018 
0019 
0020 
O021 
0022 
0022 
0023 
0023 
0024 
0025 
0026 
0027 
0027 
0027 
0030 
0031 
0032 
0032 
0035 
0036 
0037 


BITEDUSTCERRORCOUNTs 63 »"PRT "pLINEs 2103 
FOR Tle O STEP 1 UNTIL 3100 BITEDUSTCINFOL Tis) e43e"INFO “sl INE20)3 
BITEDUSTC ELBATC#)o132"ELBAT “sLINEs0)3 
BI TEDUSTCSTACKHEADLC el >2.a"STHEADsLINE20)3 
TL*MKABSCERRNUMI@45 T3eTL3 
Lt T2*¢ABS(T3)3 


Ip T2,.033t15)#0 THEN BEGIN T3¢T2,C161815]3 
IF T3*0 THEN GO TO EXIT ELSE GO TQ L END 3 
T4 © TF T2e033815) < S12 THEN O ELSE T2,£338153a7T2639031032)3 
LAtPLICLINCOJsTLISIF TLET3 THEN BEGIN IF TKO THEN P2CLINCOIJsT4)3 
TieTis43 
WRITELINES 
T3*T2.018135)3G0 TO, END; 
Tls#741°13 WRITELINES 
GO TO Li 
EXIT’ ENO 3 
PRT(542) = *SEGMENT DESCRIPTOR®* 


END END FLAGS 


, LABEL ENDOFITALL3 
COMMENT ERR*#IS THE SAME AS FLAG EXCEPT THAT IT MAKES AN ATTEMPT TO 
RECOVER FROM ERROR SITUATIONS BY SEARCHING FOR A 
SEMICOLONs END» OR BEGINS 
PROCEDURE ERRCERRNUM)S VALUE ERRKNUMS INTEGER ERRNUMS 
BEGIN FLAGCERRNUM)4 
I e« [*43 
IF ERRNUM = 200 THEN 
IF ERRNUM = 611 THEN 
DO IF STEP] # BEGINV 
ELCLASS = ENDV OR 


Tts1/03% SEGMENT TOO LARGE 
ItsI/Os% ERRMAX EXCEEDED 
THEN STMT UNTIL 

ELCLASS & SEMICOLON END ERRS 


DEFINE ERROR = ERR#S COMMENT ERROR IS A SYNONM FOR ERRS 
COMMENT CHECKER IS A SMALL PROCEDURE THAT CHECKS TO SEE THAT THE 
UPLEVEL ADORESSING CONVENTIONS ARE OBEYED 
PROCEQURE CHECKERCELBATWORD)S VALUE ELBATWORD) REAL ELBATWORD) 
PRT(543) = CHECKER 
BEGIN 
IF MODE 2 2 THEN 
IF GT1 © ELBATWORDeLVL 2 FRSTLEVEL THEN 
IF GTi < SUBLEVEL THEN 
IF ELBATWORD,[982] # } 
THEN BEGIN FLAG(101)3 ERRORTOG ¢* TRUE END 
END CHECKER} . 


35 15 
34 15 


05087000 
05088000 
08089000 
05890000 
05091000 
05092000 
05093000 
05094000 
05095000 
05096000 
05097000 
05097500 
05098000 
03099000 
03099100 
05100000 


Se lee ie Mie ee ee ee ee ee a 


196 LONG, 


08101000 


T 


$3 LONG, 


03101100 
05102000 
05103000 
05108000 
05105000 
0$106000 
05407000 
03107100 
03107200 
05108000 
05109000 


05140000 
05111000 
05112000 
05113000 


05114000 
03115000 
05116000 
09141317000 
05118000 
035119000 
08120000 


ee i ee i 


444 4 


ee 


0038 
0044 
0049 
0052 
0055 
0058 
0060 
0063 
0065 
0070 
0076 
0077 
0094 
0093 
0104 
0105 


NEXT SEG 
0050 
NEXT SEG 


Osit 
0311 
O311 
O311 
0311 
O314 
Ojl2 
O314 
0316 
0319 
0324 


0323 
0323 
0323 
0323 


0323 
0323 
0324 
0327 
0326 
0329 
0332 


COMMENT GIT IS YSED TO OBTAIN THE INDEX TO ADDITIONAL INFORMATION 
GIVEN THE LINK TO THE ELBAT WORD; 
INTEGER PROCEDURE GITCL)S VALUE LJ REAL L3 
GIT © TAKECLISINCReLeLINK3 


COMMENT GNAT IS USED TO OBTAIN THE PRT ADDRESS OF A GIVEN DESCRIPTOR, 
IF THE ADDRESS HAS NOT BEEN ASSIGNED» THEN IT USES 
GETSPACE TO QBTAIN THE PRT ADDRESS3 

INTEGER PROCEDURE GNATC(L)S VALUE LS REAL L3 
BEGIN 
REAL As 


STACK(F 43) = A 
IF GNAT #CASTAKE(L 2) sADDRESS#O 
THEN PUTCASCGNATIRGETSPACECTRUEsLeLINK*2 2) CISS378141) 01) 
END GNAT3 


REAL PROCEDURE TAKEFRST3 
PRT(544) = TAKEFRST 
TAKEFRST © TAKECELBATCI J eLINK*ELBATCIJsINCR)3 


COMMENT STUFFF DIALS THE FeREGISTER INTO THE FrREGISTER FIELD OF A 
DESCRIPTORe THE DESCRIPTOR REMAINS ON THE TUP OF THE 


STACKS 
PROCEDURE STUFFFCAQDDRESS)4 VALUE ADDRESS’ INTEGER ADDRESS 
PRT(545) = STUFFF 
BEGIN 
EMITPATRC ADDRESS» L00)3 


MITNCS}2)3 
ENT TOC 34+ 16515) END STUFFF3 


COMMENT 
PRESENT COQODE3 
BOOLEAN PROCEDURE LOCALCELBATWORD )3 
PRT(546) = LOCAL 
VALUE ELBATWORDS REAL ELBATWORDO: 
BEGIN IF ELBATWORDeLVL = LEVEL AND 
NOT BOOLEANCELBATWOROD, FORMAL) THEN 
LOCAL © TRUE END LOCAL 


COMMENT PASSFORMAT COMPILES CODE THAT PASSES A FORMATe TWO ITEMS ARE 


LOCAL 15 USED TO SEE WHETHER OR NOT A LABEL IS LOCAL TO OUR 


05121000 
05122000 
05123000 
08124000 


05125000 
09126000 
05127000 
03128000 
05129000 
05139000 


START OF SEGMENT 


36 1S 


05131000 
05132000 


05133000 


10 LONG 


05188000 
05189000 


035196000 
05197000 


08198000 
05199000 


03200000 
05201000 


Beece coe 
05203000 


05204000 


05205000 
05206000 


05207000 
0$208000 
05209000 
05210000 


0$211000 


+a 


ae nn ee 


0332 
0332 
0332 
0332 


0338 
0338 
0338 
0338 
0338 
0338 


keEaRR HR E Se 


0000 
0002 
0007 


NEXT SEG 


0338 


0338 


0344 
0344 
0344 
0344 


0344 
O344 
0346 
0346 


0348 
0348 
0348 


0348 
0346 
0350 
0351 


0355 


36 


3 


PASSE) = THE ARRAY REFERENCING FORMAT TABLE AND THE 
STARTING INDEX. THE ROUTINE HANDLES SUPERFORMATS ALSQOS 
PROCEDURE PASSFORMAT$ 
PRT(S47) & PASSFORMAT 
BEGIN INTEGER ADRES; 


STACK(F 42) = ADRES 
GHECKERCELBATCIJ)3 
ADRES © ELBATCIJ.ADDRESSS 
IF BOOLEANCELBATCIJ.FORMAL) 
THEN BEGIN EMITVCADRES)$ ADRES ¢ ADRES#*1 END 
ELSE BEGIN 
If TABLECT) #@ SUPERFRMTIO 
THEN EMITLCTAKEFRST) ELSE EMITLCELBATCIJeINCR) 
ENDS 
IF TABLECI) = SUPERFRMTID 
THEN BEGIN BANAS I © I[]3 
EMITOCSSP)4 EMITOCADD)3 EMITVCAORES) END; 
EMITPAJRCADRES*.00) END PASSFORMAT3 


STREAMNORDS EITHER RESERVES OR UNRESERVES STREAM RESERVED 


WORDS * IT COMPLEMENTS THEIR STATES 
PROCEDURE STREAMWORDS3 
PRTC550) = STREAMWORDS 


COMMENT 


BEGIN GTi © 03 

DO BEGIN 
INFUCLeGTAJ LINK @STACKHEADEGT2e( TeINFOC 1 sGT1))2eADDRESS)5 
STACKHEAD(GT2] © TeLINKS 
GT1 * GTie23 

END UNTIL BOOLEANCT.FORMAL) ENO STREAMWORDSS 


PROCEDURE PROGDESCBLOR(PRTADR»s SAVseSIZEs TYPE D3 
VALUE PRTADRsSaveSITZbs TYPES 
INTEGER PRTADRsSIZEsTYPES BOOLEAN SAV; 
BEGIN PRTADRePRTAOR,(C38#10)3 
IF SAV THEN BEGIN PRTICPRTADR) © ¢( JF TYPE #® LOES 
THEN SIZE ELSE CORADR) 
SSIZECSPSESLOISTYPECLI4398S 1 83(6846i2)3 
IF TYPEZLDES THEN CORADReCORADR+SIZE3 


END 
ELSE BEGIN PRTICPRTADRI*O8DISKADRI182 3398151 8S14E064 38810) 
STYPECLIGIISIRICO8463273 


START OF SEGMENT 


37 IS 


05212000 T 0355 
05213000 T 0355 
09214000 T 0355 
05215000 T 0355 
eeewehe tan 
05216000 T 0000 
0$217000 T 0001 
05818000 T 00v2 
05219000 T 0002 
05220000 tT 0006 
05221000 7 0006 
o5m22000 tT 0007 
05823000 y 0010 
05224000 T 0014 
05225000 T 0012 
05226000 T 0014 
0$a27000 T 0017 
21 LONG» NEXT SEG 
05228000 T 04355 
05229000 T 0355 
05230000 T 0355 
05231000 T 0455 
0$232000 T 0356 
05233000 T 0357 
05234000 T 036} 
05235000 T 0364 
08236000 T 0366 
05237000 T 0367 
05238000 T 0367 
05839000 7 0367 
05g40000 T 0367 
05241000 r 0367 
0$242000 T 0367 
08243000 T 0367 
05844000 y 0367 
05245000 T 0367 
05246000 T 0367 
05247000 T 0367 
05847500 T 0367 
05248000 T 0369 
05246500 7 0374 
05249000 T 0373 
09250000 7 0376 
0$251000 tT 0379 
05252000 T 0379 
05253000 tT 0382 


37 


3 


DISKADRe(SIZE+29) DIV 304DISKADRS 


ENDS 
ENO PROGDESCBLORS 


DOTSYNTAX ANALYSES THE SYNTAX OF A PARTIAL WORD DESIGNATOR, 
IT REPORTS IF AN ERROR IS FOUNDe IT RETURNS WITH THE 
LITERALS INVOLVED3 

BOOLEAN PROGEDURE DOTSYNTAXC(FIRST*sSECOND);3 

PRT(551) ® DOTSYNTAx 


COMMENT 


INTEGER FIRSTs SECONDS 
BEGIN 
LABEL EXITS 
IF 
Ik 


STEPI LFTBRKET THEN 
STEPI LITNO THEN 
IF STEPI = COLON THEN 
JF STEPI = LITNO THEN 
IF STEPI = RTBRKET THEN 
COMMENT IF TESTS ARE PASSED THEN SYNTAX IS CORRECTS 
IF (FIRST © ELBATCI=3],.A0DRESS) x 
CSECOND ¢ ELBATECI*$),ADDRESS)40 THEN 
IF FIRST + SECOND s 48 THEN 
COMMENT IF TESTS ARE PASSED THEN RANGES OF LITERALS ARE O¢K,3 
GO TO EXITS 
ERR(414)3 COMMENT ERROR IF SYNTAX UR RANGE FAILSS 
DOTSYNTAX © TRUES EXIT# END DOTSYNTAX3 


nou 


BOOLEAN PROCEDURE RANGE LOWER» UPPER): 
PRT(552) = RANGE 
VALUE LOWER» UPPERS 
REAL LOWER»UPPERS 
COMMENT RANGE TESTS THE CLASS OF THE ITEM IN ELBATEI] TO SEE IF 
IT Is GREATER THAN OR EQUAL TO LOWER OR LESS THAN OR EQUAL TO 
UPPER AND SETS RANGE TQ TRUE OR FALSE ACCORDINGLY» THE ITEMS 
CLASS MUST BE IN ELCLASSS 
RANGECELCLASS 2 LOWER AND ELCLASS $ UPPERS 


COMMENT GET OBTAINS A SYLLABLE FROM E0QCs THE ARRAY INTO WHICH CQvE IS 


05254000 
05254500 
05255000 


0$267000 
05268000 
05269000 
05270000 


05271000 
05272000 
08273000 


START OF SEGMENT 


38 IS 


08274000 
05275000 
0$276000 
05277000 
05278000 
05279000 
05280000 
0$281000 
05282000 
05283000 
05284000 
05285000 
0$286000 


20 LONG 


05287000 
05288000 
08289000 
05290000 
052891000 
05292000 
05293000 
09294000 
05295000 
05296000 
05297000 


05498000 
0§$299000 
05300000 
05301000 
05302000 
0$303000 
08304000 


05305000 


+4 


mt se ett 


Se 


Att HH 


0385 
0387 
0387 


0387 
0387 
0387 
0387 


0367 
0387 
0387 
kee 
0000 
0004 
0002 
0004 
0008 
0007 
0007 
0009 
0012 
0014 
0014 
0015 
0015 
NEXT SEG 


0387 
0387 
0367 
0387 
0387 
0387 
0387 
0387 
0387 
0387 
0387 


0387 
0387 
0387 
0387 
0387 
0387 
0387 


0392 


38 


3 


EMITTEDS 
INTEGER PROCEDURE GETCLI4 VALUE L4 REAL L3 
BEGIN 
INTEGER STREAM PROQOCEQURE GETSYL(WsS)3 VALUE 383 


PRT(553) * GETSYL 
BEGIN DI * LOC GETSYLS OL © O1+63 
SIT © WS SIT © SI+Ss SI # SJ+#S3 DS © 2 CHR ENDS 


GET*GETSYL (CODEC L OFV 441) 5h.04682))3 END GETS 


COMMENT CALL SWITCH PERFORMS THE FINAL MESS OF GETTING A PRUPER DE®* 
SCRIPTOR TO THE TOP OF THE STACKS 
PROCEDURE CALLSWITCHCH)3 VALUE WS REAL H3 
PRT(554) = CALLSWITCH 


BEGIN EMITVCGNATCH))$ EMITOCPRTE)S EMITOCLOD) END CALLSWITCH3 


PROCEDURE WRITEPRTCPORS*#NeGS)3 VALUE PORS»NsGS3 INTEGER PORS#NeGS3 
PRT(555) & WRITEPRT 
BEGIN 
LABEL EXITS 


STREAM PROCEDURE FILLITCLINs PORSs CELL» Ns I0)3 
PRT(556) = FILLIT 
VALUER PORSs CELL NJ 

BEGIN 
LOCAL COUNTS 
LABEL MOsMisM2aM3eM4eMSeMGaM7eXITS 
SIssLOC PORSS STtaSi435 OLIaLIné &% 
IF SCa*P" THEN 


"PRT™ QR "STACK", 


BEGIN OS%3 CHRS DSteLITec"s END 
ELSE BEGIN 
DS#aS5 CHRS OSterIT"("s STsesLOC CELLS SI83S14+5;5 


IF SCe"6" THEN DS8F2 LIT"FS" ELSE OSta2 LIT"F o"G 
COUNT#S*DTS DISmLOC CELLS OL t ad +43 
DSte#1i RESETS DItsCOUNT3 
ENDS 
STssLOC CELLS SLswSi+as TALLY 8e43 &® LOCATIONs 


053806000 Tt 0392 
05307000 y 0392 
05308000 T 0392 
03309000 T 0392 

START OF SEGMENT eee tan twe 
05310000 - 0000 
08311000 T 0000 
05342000 T 0003 

39 1S 12 LONGs, NEXT SEG 


035313000 
05314000 
05315000 


05316000 


05317000 
05318000 
03319000 
03320000 
08321000 
05322000 
03323000 
05324000 
05325000 
09325010 


0$325020 
03323030 


START OF SEGMENT 


05325040 


03325050 
05325060 
0$325070 
03325060 
0$325090 
053825100 
05325110 
05325120 
0§3925130 
09325140 
03325150 
03325160 
03325170 
05325180 


+ +4 + 


OO ee ee ee 


ee | 


0392 
0392 
0392 


0392 


0396 
0396 
0396 
0396 
0396 
0396 
0396 
0396 
0396 
0396 


0396 
0396 
Te LOrere, 
0000 


0000 
0000 
0000 
0000 
0000 
0000 
0001 
0002 
0002 
0004 
QQ05 
0006 
0007 
0007 


39 


3 


40 


PRT(557) 
PRT(560) 
PRT(561) 
PRT(562) 


PRT(563) 


PRT(564) & DOIT 


MO? 


M13 
M2t 


M35 
Mat 


® *LISTs LABEL, 


= 


M53 


*LIST» LABEL, 


M68 


*LISTe LABEL,» 


M73 


*LIST»s LABEL, 


XITSs 


*LISTs LABEL, 


3CIF Sce"0" THEN &% DONT PRINT LEADING ZEROES 


BEGIN SIs#SI¢13 TALLY#STALLY#63 ENO ELSE YUMP OUT); 


COUNTS STALLYS OStaCOUNT CHRS TALLY##03 COUNTESTALLYS 
DSi24 LIT")? = "F CELLISDIS & SAVE QUR PLACE, 
CIs=CIeNn3 


GO 
GQ 
GO 
GO 
GO 
G6 
GO 
GO 


ST:sIDs STssSl+a3 
OIteDI+73 DSt2CHRs OLI=CELL3 


GO 


DISSCELLS OStE19 LIT"eTEMPQRARY STORAGE #"; 


MO3 

M13 

M23 

M33 

M43 

M53 

M63 

M75 

DIseLUC COUNT; 

OSSSCOUNT CHR3 
XIT3 

GO XITs 


DIseCELL, 


DSte36 LIT*#LIST» LABEL» OR SEGMENT DESCRIPTOR®"s GO XIT3 


DISaCELLs OSte27 LIT"*CASE STATEMENT DESCRIPTUR*"S GO XITS 
DIssCELLs DStei9 LIT ™*FURMAT DESCRIPTOR#"3 GO XIT3 


OR 


SEGMENT DESCRIPTOR* 


OTseCELLs USteed LIT"*OUTER BLOCK DESCRIPTOR*®"s GO XIT3 


OR 


DItsCELis USIS20 LIT"SEGMENT DESCRIPTOR#"; 


OR 


SEGMENT DESCRIPTOR* 
GU XIT3 


SEGMENT DESCRIPTOR*# 


OIssCELLs OS8818 LITM*LABEL DESCRIPTOR«; 


OR 


SEGMENT DESCRIPTOR«s 


END FILLITS 


OR 


SEGMENT DESCRIPTOR* 


BLANKETCIGs LINDE 
IF N31 THEN FILLITCLIN»SPORS* GSs02ACCUME1)) 
ELSE IF N>1 THEN FILLITCLIN#e PORS*GSe0s I NFOLNeLENKRe Ng LINKC)) 
ELSE FILLITCLIN»sPORSsGSsABSCN) NIB 
IF NOHEADING THEN DATIMES WRITELINES 
END WRITEPRT? 


COMMENT GETSPACE MAKES ASSIGNMENTS TO VARIABLES AND DESCRIPTORS IN 


THE STACK AND PRT, PERMANENT TELLS WHETHER IT IS A 
PERMANENTLY ASSIGNED CELL CALWAYS IN PRT) OR NOT, NON 
PERMANENT CELLS ARE EITHER IN STACK OR PRT ACCORDING TO 
MODE. CARE IS TAKEN TO REUSE NON PERMANENT PRT CELLS3 


INTEGER PROCEDURE GETSPACE(PERMANENT#L)3 VALUE PERMANENToL3 


BOOLEAN PERMANENTS INTEGER L3 


BEGIN LABEL LielasExiti 


STREAM PROCEQURE DOITCC#AsTsS)3 VALUE CoA3 


40 IS 


05325190 
05325200 
05325210 
05325220 
05325230 
05325240 
05325250 
05325260 
05325270 
05325280 
05325290 
05325300 
05325310 
05325320 
05325330 
09325340 
05325350 
05325360 
05325370 
05325380 
05325390 


05325400 
05325410 
03325420 


05325430 
03325440 


05325450 
05325460 
05325470 
05825480 
05325490 
05325500 


60 LONG 


03326000 


05327000 
05326000 
05829000 
05330000 
0§331000 
05333000 
05334000 


START OF SEGMENT 


03334100 


4-0 + AHHH HHH st to 


ee 


Se 


0007 
0008 
OO14 
0012 
0013 
0043 
0044 
0014 
O014 
0014 
0015 
0015 
0015 
0015 
0016 
0018 
0018 
0022 
0023 
0026 
0033 


0037 
0044 


0045 


Q048 
0048 


0049 
0051 
0055 
0063 
0067 
0079 
NEXT SEG 


03996 
0396 
0396 
0396 
0396 
0396 
0396 
0396 


eeetthatan 


T 


0000 


3 


44 


STACK(CF 43) 
STACK(F 44) 


STACK(F 45) 
STACK(F +6) 


STACKCF 47) 


Hout 


BEGIN LOCAL NB 
DI©S3 DS*B LIT" "3 SIS; 
SI¢I3 SleSle23 OLleLOC N3 
DI©Ss STeLOC Cs 2¢0S¢4 DE 
SleIs Sle¢SI43s DSeN CHR; 
END3 


BOOLEAN MsQ3 


INTEGER ROWsCOL2GS3 


NOTCSTREAMTOG AND CLEVEL>2)) THEN 
IF STEPI@RELOP THEN 
BEGIN 
IF STEPI>IDMAX 
THEN 
BEGIN 

IF ELCLASS 

THEN 


ELSE 
BEGIN GSeOs Tel") ENDS 


IF STEPIALITNO THEN FLAG(51)3 
TF ELBATEIL J e«ADDRESS2512 THEN GSe10243 


GS+GS+ELBAT(II. 
ENO . 


ELSE 
BEGIN 


GS+ELBAT(CI)sADORESS; 

TF GSeO THEN FLAGC51)3 

IF GS@FZERO AND GSS1023 THEN GSe#Gs3 
IF STEPIZADOP THEN Ie]*1 ELSE 


BEGIN 
STEPI 


GS*ELBATCIJ+ADDRESS+ 
CIF ELBATCI*1) eADDRESS=SUBOP 
THEN "GS ELSE +G5)3 


ENO} 
GS¢ABS(GS) 


ENDS Q¢G5«512 OR GS>10233 


GQ TO ExIT 
END ELSE IeJ#13 
IF MODE 3 O OR PERMANENT 

THEN BEGIN 

IF PRTIMAX > 1023 THEN FL 
IF ASTOG THEN FLAGC505)3 
PRTI ¢ 
PRTIMAX¢(GS¢PRTIMAX) 413 


TF STUFFTOG THEN IF (Me(LEVEL31 AND KLASSF>19)) OR 
CLEVEL@3 AND ELBATCIJ+CLASSSLABELID) THEN BEGIN 


DSe¢9 WOS; 


DIeDI4*7s DSeCHR3 


C23 


#zADOP 


TF ELBATCIJ,ADORESS*SUBOP 
THEN GSeFZERO ELSE GSe512 


ADDRESS 


T3 


, 


AGC LAB); 


03334200 
03334300 
035334400 
08334500 
03334600 
05334700 


05343000 


03344000 


05344400 
09344500 
05344510 
05344520 
05344530 
05344540 
05344550 
05844560 
05344570 
0534458" 
05844590 
05344600 
08344610 
05344615 
05344620 
06344630 
05344640 
05344650 
05344660 
05944664 
05344662 
05344670 
05344680 
05344690 
05344700 
05344710 
05344720 
08344730 
053944740 
05344750 
05344760 
0§344770 
05345000 
05346000 
0$347000 
05348000 
05349000 
05350000 
05350100 
05350420 


att 


ae at at at tt tt oe ts oe ss st oe 


0000 
0000 
0002 
0003 
Q004 
0005 


0005 


0005 


0005 
0007 
0009 
0009 
0010 
0010 
00114 
0014 
Oot 
0013 
0045 
0016 
0018 
0021 
0023 
0024 
0025 
0025 
0028 
0029 
0034 
0034 
0037 
0038 
0038 
0039 
0044 
0044 
0044 
0045 
0047 
0047 
0049 
0050 
0054 
0053 
0054 
0054 
0057 
0060 


PRT(565) = 


STACKC(F 43) 
STACK(CF 44) 
STACKCF 45) 
STACK(CF 46) 
STACKCF 47) 


IF NUT M THEN 
DOITCLABELIDeGSeINFOCCELBATCIIJ 2 eLINKR» 
CELBATCIJeLINKC#1)J»TWXACLOJ) ELSE 
DOITCKLASSF sGSsINFOCCLASTINFO*1 ) eLINKRe CLASTINFUSL) eLINKC] 
eTWXALOI)S WRITECSTUFF 910s TWXALC*]) ENDS END 
ELSE BEGIN 
IF STACKCTR > 767 TREN FLAGC149)3 
STACKCTR © (GS + STACKCTR)413 Q © FALSE 
GO TO EXIT ENDS 


L2t IF GS 2 512 THEN GS ¢« GS410243 
Q@ © TRUES 
EXIT’ GETSPACE ¢ GS; 


IF GS2NESTCTR AND GS<FZERO THEN NESTCTREGS415 

IF GS > 1023 THEN GS © GS*10243 

IF PRTOG THEN WRITEPRTCIF Q@ THEN "PRT 
END GETSPACE3 


" ELSE "STACK*,»L»B20(GS))3 


REAL PROCEOURE DEPTHCI2$3 VALUE 13 REAL 13 
DEPTH 


BEGIN REAL JeKe Ta Semi 


nu un uu 
< eo eae oe 


IF TeNESTPRTCII<0 THEN 

BEGIN DEPTHeCALLE(TeC22813)"1).0354913)3 
IF NESTPRTCTI,0¥211]20 THEN NESTCUR*NESTCUR*{3 
NESTPRTCIU,C28i3e43 

END 

IF 74.09%313340 THEN DEPTHeT,£9813) 

BEGIN MeQ} NESTPRTICI]¢=T3 

JoTC22313)2 KReCalLL Cysi).e£22813)3 

FOR Jey STEP 1 UNTIL K DO 

TF S*DEPTHCCALLEU])>M THEN MeS3 

MeDEPTHeM+CALL(T,C22013)91),(35813)3 

IF NESTCURZO THEN 

IF NESTPRTCIJeC2t1)"0 THEN ELSE 

BEGIN TeT&MC9935813]3 NESTCUReNESTCUR@4 END 

ELSE TeT&MC9835843)3 

NESTPRTCITJ¢eT3 

GENO} 


ELSE 
ELSE 


ENDS 


PROCEDURE NESTSORT(LeU)S VALUE LeU; REAL LeU; FORWARD; 


PRT(566) = NESTSORT 


PROCEDURE SORTNESTS 


PRT(567) = SORTNEST 


41, 1S 


053590140 
053950160 
05350180 
05350200 
05350300 
0§369000 
05370000 
05371000 
05372000 
05373000 
05374000 
05375000 
05375100 
05376000 
05376100 
05378000 


att ttt Ht 


0063 
0064 
0067 
0069 
QU74 
0079 
0080 
0082 
0084 
0085 
0087 
0088 
0089 
0093 
0095 
0100 


107 LONGs NEXT SEG 


05400000 


05401000 


START OF SEGMENT 


42 1S 


05402000 
05402100 
05402200 
05402300 
05402400 
08403000 
05404000 
05408000 
05406000 
05407000 
05409000 
05409100 
05409200 
05409300 
06409400 
05409500 
05410000 
05411000 


56 LONG 


05443100 


0$412000 


tT 


T 


0396 


0396 


Wkeerhkatne 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 


T 


0000 
0002 
0007 
0014 
0014 
Q0414 
0016 
0020 
0026 
0027 
0034 
0040 
0044 
0044 
O04? 
0050 
0054 
0054 
NEXT SEG 


0396 


0396 


3 


4@ 


3 


BEGIN ARRAY ACQ?14]3 054133000 T 0396 
START OF SEGMENT weewten inn 43 
STACK(F#2) 5 A 


REAL Le JeKeT3 09414000 7 0001 
STACK(F 43) ® J 
STACK(F#4) = J 
STACK(F4+5) = K 
STACK(F 46) = T 
REAL PsQ3 08414100 T OO04 
STACK(F 47) = P 
STACK(F 410) = Q 
STREAM PROCEDURE NESTFORMCIoNe Le AS VALUE Tons 03415000 T Q004 
PRT¢(S70) = NESTFORM 
BEGIN LOCAL $3 09416000 T O004 
DIeAs 1560548 LIT " "23 05417000 7 0003 
DI*LOC Ss DIeDI47s STels STeST+103 OSeCHRS 03418000 T 0005 
DI©AS OLeDI 43 Aedd; 05419000 T 0006 
DI#DI463 OSe¢ S CHR 05420000 Tt Q007 
DI#A3 STeLOC Ns DS*4 CEC3 03421000 T 9008 
DIeAs OSe3 FILL: 05422000 T OU0@ 
ENDS 05423000 T 0OQ09 
FOR TePRTBASE STEP 31 UNTIL PRTOP OO 05424000 T 0009 
IF NESTPRTCIIJ40 THEN 05425000 T O01) 
BEGIN SORTPRICQJ¢I14 QeQ+1 ENDS 05425100 T 0012 
NESTSORT(COQ¢0"1)3 05425200 T 0017 
FOR PeO STEP 1 UNTIL @ DO 05425300 T 0019 
BEGIN T*SORTPRICP)3 TeNESTPRICII3 05425400 Tt 0021 
NESTFORMCOsDEPTHC Is INFOECTeLINKRe TaLINKC Is ADS 05426000 T QO023 
WRITECLINECOBL I ,152AC#))3 05427000 Tt 90028 
JeT eC22tg3)s KeCALL(J"1).(22313)3 03428000 ~ 0U32 
FOR Jed STEP 1 UNTIL K 00 05429000 T 0037 
BEGIN TeCALL(UI3 058430000 7 0039 
TeNESTPRTICII3 05430500 T O0Ke2 
NESTFORM(C 32s DEPTHCI ss INFOCTeLINKRe Te INKC]sA)3 05431000 + 0043 
WRITECLINEs SSAC) )3 05432000 T 0048 
ENO3 05433000 7 0052 
WRITECLINECOBLI)3 Q0$434000 T 0054 
ENO3 05435000 fT 0058 
ENDS 05436000 TY 0064 
43 1S 66 LONGs, NEXT SEG 3 


PRQOCEQURE NESTSORT(L2U)3 VALUE LeUsS REAL Lous 05437000 T 0396 
BEGIN REAL IsJdeKaM3 05438000 T 0396 
START OF SEGMENT eewetinwwe 44 
STACK(F ee) = I 
STACK(Fe3) = y 
STACK(F 44) # K 
STACKCF 45) = M 


LABEL AGAINs TOPsBOTTOMSEXITS 05439000 T 0000 
IF L4U THEN 05440000 T 9000 


BEGIN Me (USL) DIV 23 
NESTSORT(L»M)3 
NESTSORT(CM415U)3 
TeKelLs JemMeti 
IF I> THEN GO TO TOPS 
IF YoU THEN GU TO BOTTOM; 
GTI*®NESTPRICSORTPRTICITI eC33&L5IIeLINKS 
GTZ¢NESTPRICSORTPRI CU eC 3385] ) «LINKS 
IF INFOCGTIsLINKRa CGT14i) eLINKC].C18330]8 

INFOCGT2eLINKRe (CGT241) eL INKC1.0618%30) THEN 
GO YO BOTTOMS 

SORTPRICK) CIStiSJeSORTPRICU)3 
JoJo 13 
IF KeK#1sU THEN GO To AGAIN ELSE GO TO EXIT; 
SORTPRICKI,CI8tISJeSORTPRICII3 
Teyed3 
IF KeKo1sU THEN GO TQ AGAIN ELSE GU TO EXIT3 
FOR Tel STEP 1 UNTIL U 00 
SORTPRICITJ©SORTPRICI3¢(18815 93 


AGAIN! 


TOP? 


BOTTOM! 


EXIT! 


ENO3 
ENDS 


COMMENT ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS; 
COMMENT AEXP IS THE ARITHMETIC EXPRESSION ROUTINES 
PROCEDURE AEXP3 
BEGIN 
IF ELCLASS 3 IFV 
THEN BEGIN JF IFEXP # ATYPE THEN ERR(102) END 
ELSE BEGIN ARITHSEC} SIMPARITH ENO 
END AEXP3 


COMMENT ARITHSEC COMPILES FIRST PRIMARY IN AN ARITHMETIC EXPRESSIUNe 
IN PARTICULAR IT HANDLES Ps +Ps =P» AND *P#Q WHERE P 
AND @ ARE PRIMARIESS 
PROCEDURE ARITHSEC; 
BEGIN 
IF ELCLASS = ADOP 
THEN BEGIN 
STEPIT3 
IF ELBATEI@1)¢ADDRESS * SUB THEN PRIMARY 
ELSE BEGIN 
PRIMARY3 
ENOTOG © LINKTQGS EMITOCCHS)3 
LINKTOG «¢ ENOTOG$ ENDTOG « FALSE END END 
ELSE PRIMARY END ARITHSEC3 


COMMENT SIMPARITH COMPILES SIMPLE ARITHMETIC EXPRESSIUNS UN THE 


44 158 


05441000 


05442000 
05443000 
08444000 
05445000 
05446000 
0$447000 
05448000 
05449000 
05450000 
05451000 
0$452000 
05453000 
05454000 
05455000 
09456000 
05457000 
05458000 
05459000 
05460000 
05461000 


46 LONG 


06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 


06008000 


06009000 
06010000 
06911000 
06012000 
06033000 
06014000 
06015000 
06016000 
06017000 
06016000 
06021000 
06022000 
06023000 


06024000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
? 


ee ee ee ee ee ee 


AAMAS HH Ht 


0000 


0003 
0004 
0005 
0008 
0009 
0010 
0013 
0016 
0019 
0022 
0023 
0026 
0027 
0030 
0033 
0034 
0037 
0039 
0043 
0043 
NEXT SEG 


0396 
0396 
0396 
0396 
0396 
0396 
0399 
Q404 


0404 


OW04 
O404 
0404 
0404 
0404 
0402 
0403 
0403 
0406 
0407 
0407 
0409 
0410 


0412 


3 


ASSUMPTION THAT AN ARITHMETIC PRIMARY HAS ALREADY BEEN 
COMPILEDe IT ALSO HANDLES THE CASE OF A CONCATENATE 
WHERE ACTUALPARAPART CAUSED THE VARIABLE ROUTINE TO 
COMPILE ONLY PART UF A PRIMARY, MOST OF THE WORK OF 
SIMPARITH IS DONE BY ARITHCOMPs AN ARTIFTAL ROUTINE 
WHICH DOES THE HIERARCHY ANALYSIS USING RECURSION, 
ARITHCOMP IS A SUBROUTINE ONLY TO GET THIS RECURSIONS 
PROCEDURE SIMPARITHS 

BEGIN 

WHILE ELCLASS = AMPERSAND 

DO BEGIN STEPITS PRIMARYS PARSE END3 
WHILE ELCLASS 2 EQVOP DO ARITHCOMP ENDS 


COMMENT ARITHCOMP JS THE GUTS OF THE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS, IT CALLS PRIMARY AT APPROPRIATE TIMES AND 
EMITS THE ARITHMETIC OPERATORS» THE HIERARCHY ANALYSIS 
IS OBTAINED BY RECURSION; 
PROCEDURE ARITHCOMP3 
BEGIN INTEGER OPERATORs OPCLASS3 
STACK(Fe2) = OPERATOR 
STACK(F +3) = OPCLASS 
DQ BEGIN 
OPERATOR «© 1 & ELBATECI] 63681731073 
COMMENT THIS SETS UP THE OPERATOR WHICH WILL BE EMITTEDs THE HIGH 
ORDER TEN BITS OF THE QPERATOR ARE LOCATED IN 6173810) 
OF THE ELBAT WORDS 
OPCLASS © ELCLASS3 
STEPIT PRIMARY) 
BEGIN 
WHILE OPCLASS «< ELCLASS 00 ARITHCOMP3 
COMMENT THE CLASSES ARE ARRANGED IN ORDER OF HIERARCHY3 
EMITCQOPERATOR)3 
EMITCODS & © Leds 
STACKCT © 13 
END} 
END UNTIL OPCLASS # ELCLASS END ARITHCOMPS 


INTEGER PROCEDURE EXPRSSs BEGIN AEXPS EXPRSS © ATYPE ENDS 


PROCEDURE POLISHERCEXPECT)3 VALUE EXPECTS REAL EXPECTS 
BEGIN LABEL EXIT; 


LABEL EL) 

REAL COUNT*Tis T23 
STACK(Fe2) = COUNT 
STACK(F +3) & T1 


06025000 
06026000 
06027000 
06028000 
06029000 
06030000 
06031000 
06032000 
06033000 
06034000 
06035000 
06036000 


06037000 
06038000 
06039000 
06040000 
06041000 
06942000 


START OF SEGMENT 


45 1S 


START OF 


06043000 
06044000 
06045000 
06046000 
06047000 
06048000 
06049000 
06051000 
06052000 
06053000 
06054000 
06054100 
06454150 
06034200 
06055000 


14 LONG 


06057000 


06060000 
06001000 

SEGMENT 
06061900 
06062000 


AAA H HHH 


ee ee ee ee 


T 


T 
T 


HEKEKKRERHED 


T 
T 


0412 
o412 
0412 
0442 
o412 
O412 
0412 
0412 
Q412 
0412 
0412 
0415 


0418 
0418 
0418 
0416 
0418 
0418 


RHR 


0000 
0000 
0002 
0002 
0002 
0002 
0002 
0003 
0003 
0006 
0006 
0007 
0009 
0009 
0009 


NEXT SEG 


0418 


0422 
0422 


0000 
0000 


45 


3 


46 


STACK(F 44) 
STACK(F 45) 


STACK (F4+6) 
STACK(F +7) 


PRT(571) = 


x T2 
= § 


= SSS 
Zz 


n 


WRITEQUT 


BOOLEAN S3 
REAL S583 INTEGER 23 


STREAM PROCEDURE WRITEOUTC(CoNoL)3 VALUE CoN} 


BEGIN DI « Ls OS © 2 LIT "Samy 
SI ¢ LOC Cs SJ] « SJ+#73 DS ©¢ CHR 
SI « LOC Ns OS & DEC; 
S8COSe2L1T * "); 

ENDS 


SSS STACKCTR3 


IF STEPI # LEFTPAREN THEN GO TO EXITS 
DO BEGIN 
IF STEPI 2 QPERATORS THEN 


BEGIN T1 © (T2 * ELBATCIJ2.ADORESSS 
S @¢ S OR COUNT * T2eCiit3] < OF 


COUNT © T2,01482)+COUNT@23 
IF ELCLASS 2 OPERATOR THEN 


BEGIN IF Ti # O THEN EMITO(T1) 


ELSE BEGIN 
Ti ¢ T2.LINK+23 


Te * T2,INCR+T43 


FOR Ti © 71 STEP 1 UNTIL T2 00 


EMITCTAKECTI) 23 


END3 
ENU ELSE BEGIN T2 © ELCLASS3 
IF STEPI # LITNO THEN 


BEGIN ERR(S00)%4 GO TO EXIT ENDS 
IF T2 # BITOP THEN EMIT(T1&C 


(36%42%6]) ELSE 


IF T2 * HEXOP THEN EMITC(TY& 
CT2eC DIV 6963684583) 8(C#T2x6) 


(3984543]) ELSE 
TF T2 = TSOLATE THEN 
BEGIN T2 © C3 


IF STEPI # LITNO 
TREN BEGIN ERR(500)3 
GO TO EXIT ENDS 


EMIT(ZeCCT2C#1)DIV 6=C DIV 
O41 )x5124(48"T2°C)MOD 6x4 


37)3 
END END3 
STEPIT 
S ¢ 3S OR COUNT < 03 
END ELSE BEGIN 
IF ELCLASS # LABELIO THEN 
BEGIN Tite; 


06063000 


06063500 


06064000 


06065000 
06066000 
06067000 
06067500 
06068000 


06068500 


06069000 
06070000 
06071000 
06072000 
06074000 
06075000 
06076000 
06077000 
06078000 
06079000 
06060000 
06081000 
06082000 
06083000 
06984000 
06085000 
06086000 
06087000 
06086000 
06089000 
06090000 
06891000 
06092000 
06093000 
06094000 
06095000 
06096000 
06097900 
06998000 
06099000 
06099100 
06099200 
06100000 
06101000 
06102000 
06103000 
06104000 
06104100 
06104200 


re 


at tt tt tt ttt so a a te 


0000 


0000 


0000 


0000 
0000 
0004 
0002 
0003 


0003 


0004 
0006 
0007 
0008 
0010 
0013 
0015 
0016 
0018 
0019 
0021 
0022 
0024 
0027 
0027 
0028 
Q029 
0031 
0033 
0034 
0036 
0039 
0044 
0042 
0043 
0044 
0045 
0046 
0046 
0046 
0046 
0048 
0052 
0054 
Q054 
0054 
0056 
0056 
0057 


EL 3 GT4 © TAKECT2¢GITCELBATOCIIJ) 23 06104300 T 00586 

PUTCLsT2)3 06104400 TFT OQ064 

IF GT4& @ O THEN GT4 © Li 06104500 TJ 0062 

IF (GT4teLeGT4)0]V 4 2 128 THEN 06104510 T 0064 

BEGIN GT4iROsFLAGCSOISENDS 06104520 T 0066 

EMITCGT4x4eT4i 23 06104600 7 QO068 

STEPITs 06104700 T 0070 

END ELSE 06104800 tT 0074 

IF ELCLASS # PERIOD THEN AEXP ELSE BEGIN 06105000 T O07} 

T2¢03 06106000 T 90073 

IF STEPISPERIOD THEN 06106100 T OU74 

BEGIN Tee1s STEPIT ENDS 06106200 T QO075 

IF ELCLASS>IDMAX THEN 06106300 T 0077 

BEGIN ERR(500)2 GO TO ExIT ENDS 06107000 7 0078 

IF ELCLASS = LABELID THEN 06107100 Tt 90079 

BEGIN T1 ¢ OF GO TO EL ENDS 06107200 T 0080 

IF Ti © ELBATCIJ eADORESS = O THEN 06108000 T Q0&82 

BEGIN ERR(100)3 GO TO EXIT ENDS 06109000 T 0084 

EMITLCTID: 06110000 T 0086 

IF 7171023 THEN 06110100 T 0086 

IF T2SOTHEN FLAG(500) 06410200 T 9087 

ELSE EMITOCPRTE); 06110300 Tt 9069 

STEPITS 06111000 T O09) 

ENO4 COUNT © COUNT#413 06412000 T O094 

END3 06113000 T 0093 

END UNTIL ELCLASS #4 COMMAS 06114000 FT O093 

IF ELCLASS # RTPAREN THEN 06115000 T 0094 

BEGIN ERR(104)4 GO To EXIT ENDS 06116000 7 0095 

STEPITS 06417000 T 0096 

IF FALSE THEN 06118000 T 0097 

BEGIN COUNT © COUNT@EXPECTs 06119000 f 0097 

WRITEQUTCIF COUNT < O THEN "#" ELSE 06120000 T 0099 

IF COUNT ® 0 THEN * " ELSE "a", 06121000 7 O104 

ABSCCQUNT )»LINIO] 23 06122000 7 0103 

WRITELING 061423000 T 90105 

ENDS 06124000 Tf QO145 

EXITT# STACKCTR © SSS3 END; 06125000 fr 0115 
46 IS 120 LONG» NEXT SEG 3 

PROCEDURE PRIMARY3 06126000 T OQd2e 

BEGIN LABEL 06127000 r OQ422 
START OF SEGMENT waxtetnewwe 47 

Lie Lee L3e Loo LSe L6n L7r LBs L9r 10s 06128000 T 9000 

bide Li2e L135 L1i4e LiSe Li6» L17> LiSBs Lids 120,» 06129000 7 0000 

Leis L220 Lede Leds L255 Le6e L27> L2ebs L29e» 1305 06130000 fT 0Ov00 

L3ie L320 L330 L349 £359 £365 L375 L3Be L393 06131000 T 0000 

SwITCH S ¢ 06132000 T 0000 

Lie Lee L3e t4e LSe Lor L7r LBe Ln L408 06133000 7 0002 

Lilo L120 L135 Lise Lide Lids L17s L18s Lids L200, 06134000 7 Q002 

bales L22e L230 L24e Lede L26s L27e L28s Leon 308 06435000 rt 0002 

Laie L322 L335 L34e £350 L365 L3l%e L38s 4393 06136000 Tt 0002 

LABEL EXITsRPsLDOT*#LAMPER3 06137000 T 0022 

GO TO SCELCLASS)3 06138000 T 0022 

IF ELCLASS = LFTBRKET THEN 06139000 T 0025 


BEGIN STEPITS VARIABLECFL)3 06140000 T 0025 

IF ELCLASS #¥ RTBRKET THEN 06141000 T 0027 

BEGIN ERRC118)3 GO TO EXIT END; 06142000 T 0028 

STEPITS 06143000 T 0030 

GO TO LDUTs 06144000 T 0030 

GNOS 06145000 T 0034 

IF ELCLASS = NOTOP THEN 06146000 TF 0031 

BEGIN STEPITS PRIMARY? 06147000 Y 003, 

EMITLNGS EMJT(CO)S Leknas 06148000 7 0033 

GO TO EXIT; 06149000 T 0035 

ENDS 06150000 T 0036 

IF ELCLASS * UNKNOWNID THEN ERRC100)3 06151000 T 0036 

LASL2ELFULGsLSsLOsLOsLOtLOsLiZsLissLiOsLia7sra0%L2azsLaas_]2ss_2at_2g3 06452000 fT 0038 

L328 06153000 + 0039 

ERRC103)4 GO TO EXIT; 06154000 7 0039 

L7$ 06155000 ~ 0049 

SUBHAND(FALSE)s GO TO LOOT! 06156000 T 0044 

Liat 06157000 T O042 

IMPFUNS STACKCT © STACKCT#13 GO TO LOOT3 06158000 Tt 0043 

Lig#lis: 06159000 T 0045 

STRMPROCSTMTS GO TU LDOT3 06160000 7 0046 

Li8tlLigs 06161000 T 0047 

PROCSTMTCFALSE)S GU TO LDOTS 06162000 ry Q047 

L22th2ziL26sL27tu30%L 34! 06163000 T 0048 

VARTABLECFP)3 GO TU LAMPERs 06164000 T 0049 

L33%L 358 06165000 fT 0050 

EMITCOGELBATCI) €36817310})3 STEPITS GO TO LAMPER; 06166000 fT 0051 

L34tL 368 06167000 T 0054 

EMITNUM(C)$ STEPIT# GO TO LAMPERS 06168000 T 0054 

L383 06169000 T 0085 

PQOLISHERC1243 GO TO LOOT 06170000 TF 0056 

L398 06171000 Y 0057 

STEPITS PRIMARYS STACKCT «© STACKCT#43 06172000 rT 0058 

EM{TOCLODIS GO TO LOOT, 06172500 tT 0060 

37s 06173000 T 0064 

STEPITs AEXP3 06174000 T 0062 

STACKCT © STACKCT#13 06174500 T 0063 

IF ELCLASS ¥ RTPAREN THEN 06175000 ~ 0064 

BEGIN ERR(104)% GO TO EXIT ENDS 06176000 T 0065 

STEPIT3 06177000 T 0066 

LOOTIDOT: 06178000 T 0067 

LAMPER? 06179000 T 0068 

STACKCT © STACKCT +143 06179500 ft 0069 

WHILE ELCLASS = AMPERSAND 00 06180000 T 0070 

BEGIN STEPITs PRIMARYS PARSE ENDS 06181000 fT 0072 

EXIT! END PRIMARY} 06162000 T 0074 
47 JS 76 LONG, NEXT SEG 3 

PROCEDURE JMPFUNS 06183000 T O422 

BEGIN REAL TieT23 06184000 T Q422 


START OF SEGMENT weaxtdentes 48 


STACK(Fe2) & TL 


STACK(F 43) = T2 


Ti © (T2 © ELBATCII) ADDRESS; 06185000 T 0000 


PANAS 
IF Tl # 0 THEN EMITOCTI) 
ELSE BEGIN 
TL © T2eLINK#T2eINCRel3 
T2 © T2eLINK+es 
FOR Te ¢ T2 STEP 1 UNTIL T1 DO EMITCTAKE(T2))3 
ENDS 
ENDS 
48 1S 


PROCEDURE SUBHANDC(FROMJS VALVE FROMS BOOLEAN FROM3 
BEGIN LABEL EXIT; 


06186000 
06187000 
06188000 
06189000 
06190000 
06191000 
06192000 
06193000 


+4 st st 


0002 
0002 
0004 
0005 
0007 
0009 
0014 
O014 


17 LONG» NEXT SEG 


06194000 
06195000 


START OF SEGMENT 


REAL Thi 
STACK(F42) = Ti 
T1 © TAKEFRST3 
IF ELCLASS ¥ SUBID AND FROM THEN 
BEGIN IF STEPI # ASSITGNOP THEN 
BEGIN FLAGC503)3 GO TO EXIT ENDS 
STEPITS 
AEXP3 
EMITOCKCH)3 
GO TO EXIT; 
ENDS 
EMITLOCL #6) DIV 4e(T1,C2dst2j"1) DIV 4)3 
EMITBCBBWeBUMPL eo TI oe C36%12) 93 
STEPIT3 
ADJUST 
EXITs END SUBHAND3 
49 158 


COMMENT JFEXP COMPILES CONDITIONAL EXPRESSIONS, IT REPORTS THE TYPE 
OF EXPRESSIONS AS EXPRSS REPORTS; 

INTEGER PROCEDURE IFEXP3 
BEGIN INTEGER TYPEs THENBRANCHSELSEBRANCHS 


06196000 


06197000 
06198000 
06199000 
06200000 
06201000 
06202000 
06203000 
06204000 
06205000 
06406000 
06207000 
06208000 
06208500 
06209000 


T 


YT 
* 


T 


i ee ee 


0422 
O422 
Pe 2 
0000 


0000 
0001 
0002 
0003 
0005 
0006 
0006 
0007 
Q007 
Q007 
O011 
0014 
0014 
0015 


19 LONGs NEXT SEG 


06292000 
06293000 
06294000 
06295000 


START QF SEGMENT 


STACK(F4+3) # TYPE 
STACKC(F +4) * THENBRANCH 
STACK(F 45) = ELSEBRANCH 
IFCLAUSE; 
STACKCT ¢ QO} 
THENBRANCH * BUMPLZ 
COMMENT SAVE L FOR LATER FIXUP 
IFEXP «© TYPE © EXPRSS$ COMMENT COMPILE IST EXPRSS;3 
STACKCT © O38 
ELSEBRANCH © BUMPL3 
EMITBCBFCsTHENBRANCHoL)3 
IF ELCLASS # ELSEV THEN ERRC(155) ELSE BEGIN 
STEPIT; 
AEXPs STACKCT «© 13 
COMMENT THIS COMPILES PROPER TYPE SECOND EXPRSS3 


06296000 
06296500 
06297000 
06898000 
06299000 
06299500 
06300000 
06801000 
06302000 
06303000 
06805000 
06306000 


T 
T 
T 
T 
* 


Se ee ee ee ee ee 


0422 
0422 
0422 
0422 
eres SY 


0000 
0000 
0003 
0003 
0003 
Q004 
0005 
0007 
0008 
0010 
0014 
0012 


3 


49 


3 


50 


EMITBCBFWeELSEBRANCHsL)3 
EMITCI)3 L & Leds 
COMMENT THES [IS USED BY EMIJTLNG TO CLEANUP CODE, 
BOOSECs BOQCOMP, AND RELATIONS 
END END IFEXP3 


COMPARE WITH 


CBMMENT PARSE COMPILES CODE FOR THE CONCATENATES 


PROCEDURE PARSE 
_ . BEGIN INTEGER FIRSTsSECOND» THIRDS 


STACK(F 42) = FIRST 
STACK(F 43) # SECOND 
STACKCF 44) = THIRD 
LABEL EXIT; 
IF ELCLASS = LFTGRKET THEN 
IF STEPI = LITNO THEN 
If STEPT = COLON THEN 
IF STEPT = LITNO THEN 
IF STEPI # COLON THEN 
IF STEPI = LITNO THEN 
IF STEP] = RTBRKET THEN 
COMMENT IF TEST ARE PASSED THEN SYNTAX IS CORRECTS 
IF CFIRST © ELBATCI#5),ADDRESS) x 
CSECOND © ELBATCI@#3), ADDRESS) x 
CTHIRD © ELBATECI©1)],AD0RESS) # 0 THEN 
IF FIRST + THIRD $ 48 THEN 
IF SECONQ* THIRD s 48 THEN 
COMMENT IF TEST ARE PASSED TREN RANGES OF LITERALS ARE Oek,3 
BEGIN 
STEPIT3 
EMITOCSECONDs FIRST» THIRD) 3 
STACKCT © 13 
GO TO EXIT ENDS 
ERRC413)3 COMMENT ERROR JF SYNTAX OR RANGE FAILS3 


EXIT! END PARSES 


COMMENT DOT COMPILES CQDE FoR PARTIAL WORD DESIGNATORS»s EXCEPT FoR 
THOSE CASES HANDLED BY THE VARIABLE ROUTINES 
PROCEDURE DOT; 
BEGIN INTEGER FIRSTsSECONOS LABEL EXIT 


STACK(F 42) = FIRST 
STACK(F +3) ® SECOND 
IF ELCLASS * PERIOO THEN BEGIN 
IF DOTSYNTAXCFIRST»SECOND) THEN GO TO EXITS 


EMITICOsFIRSTsSECOND)§ 
STEPITS 


30 IS 


06307000 
06308000 
06309000 
06310000 
06311000 


i9 LONG 


06312000 


06313000 
06314000 


START OF SEGMENT 


21 «IS 


06315000 
06316000 
06317000 
06318000 
06319000 
06320000 
06321000 
06322000 
06323000 
06324000 
06325000 
06326000 
06327000 
06828000 
06329000 
06330000 
06331000 
06332000 
06332500 
06333000 
06334000 
06335000 


en i 


T 


T 
T 


* 


AHHH HHH Ht 


@8 LONG, 


06336000 
06337000 
06338000 
06339000 


START OF SEGMENT 


06340000 
06341000 
06342000 
06843000 
06344000 
06345000 


+4 4-44 4 


0012 
0013 
0015 
0015 
0015 


NEXT SEG 


0422 
0422 
0422 


eaeethekan 


0000 
0000 
0000 
0002 
0003 
Q005 
0006 
0008 
0009 
0009 
0012 
0014 
0017 
0019 
0020 
0020 
O021 
0024 
0023 
0023 
0024 
0025 


NEXT SEG 


0422 
Q422 
0422 
0422 


keetwakan 


0000 
0004 
0003 
0003 
0003 
0004 


3 


31 


3 


52 


EXITS END END DOT3 


PROCEDURE IFCLAUSES 
BEGIN STEPIT$ BEXPS 
IF ELCLASS # THENV THEN ERR(LIOIELSE STEPIT END IFCLAUSS 


COMMENT PANA COMPILES THE CONSTRUCTS (<ARITes EXPe>)3 


PROCEDURE PANA3 
BEGIN 
IF STEPI ¥* LEFTPAREN THEN ERR(105) 
ELSE BEGIN STEPITS AEXPS IF ELCLASS # RTPAREN THEN 
ERR€104) ELSE STEPIT END END PANAS 


COMMENT BANA COMPILES THE CONSTRUCTs (CK<ARITH, EXPerd]i 
PROCEDURE BANAZ 
BEGIN 
IF STEPI ¥ LFTBRKET THEN ERRC117) 
ELSE BEGIN STEPITsS AEXPs IF ELCLASS # RTBRKET THEN 
ERRC118) ELSE STEPIT END END BANA ; 


COMMENT THIS SECTION CONTAINS THE STATEMENT ROUTINESS 

COMMENT COMPOUNOTAIL COMPILES COMPOUNDTAILSse IT ALSO ELIMINATES 
COMMENTS FOLLOWING ENDS. AFTER ANY ERROR» ERROR MESSAGES 
ARE SUPPRESSED. COMPOUNDTAIL JIS PARTIALLY RESPONSIBLE 
FOR RESTORING THE ABILITY TO WRITE ERROR MESSAGES. SOME 
CARE IS ALSO TAKEN TO PREVENT READING BEYOND THE "ENDS 

PROCEDURE COMPOUNDTAILS 


PRT(572) = COMPOQUNOTAIL 


BEGIN LABEL ANOTHER; 


I © Tels BEGINCTR © BEGINCTR+13 
ERRORTOG © TRUES COMMENT ALLOW ERROR MESSAGES3 
STEPITS 
IF STREAMTOG THEN STREAMSTMT ELSE STMT4 
IF ELCLASS = SEMICOLON THEN GO TO ANOTHER} 
IF ELCLASS # ENDV 
THEN BEGIN 
ERRC119)9% GO TO ANOTHER END; 
ENOTOG*TRUES 
DO STOPOEFINE* TRUE UNTIL 
STEPISENDV ANDO ELCLASS2UNTILYV 
OR NOT ENOTOGS 
ENDTOG*FALSES 
IF BEGINCTR © BEGINCTRe1l ¥ 0 EQV ELCLASS = PERIOD 


ANOTHERS 


22 1S 


06346000 


T 


8 LONG, 


06409000 
06410000 
06411000 
06412000 


06413000 
06414000 
06445000 
06416000 
06417000 


06418000 
06419000 
096420000 
06421000 
06422000 
06423000 


07000000 
07001000 
07002000 
07003000 
07004000 
07005000 
078606000 


07007000 


START OF SEGMENT 


07008000 
07009000 
07010000 
07011000 
07012000 
07013000 
07014000 
07015000 
07016000 
OF017000 
07018000 
070819000 
07820000 
07821000 


a | 44-4 st 


44 at 


Se ee ee eS ee 


0004 
NEXT SEG 


0422 
0422 
0424 
O42? 


Q4e7 
0427 
0427 
0429 
0432 


0435 
0435 
0435 
0435 
0436 
0439 


0442 
0442 
0442 
0442 
0442 
0442 
0442 


O442 


Weeewaken 


0000 
Q002 
0003 
0004 
0006 
0007 
0008 
0009 
0010 
0044 
0011 
0013 
0015 
0015 


3 


33 


THEN BEGIN 
IF BEGINCTR # O THEN 
BEGIN FLAG(143)4s BEGINCTR * 13 GO ANOTHER ENDS 
FLAG €120)3 
FORi= (LCR&sMKABS(CBUFFL9]))993 
IF LISTER THEN PRINTCARDS 
FCRts (LCRtsMKABS(TBUFFL9}]))"9 ENDS 
IF ELCLASS = PERIOD THEN 
BEGIN 
GTS © "NOSEND,"@"E"C 18438595 
MOVE C1eGTSsCBUFFCO))3 
LASTUSEDC4} 
ELBAT(CIel=2) *SPECIALL20]3 
ELCLASS * SEMICOLON END 
END COMPOUNDTAILS 


REAL AXNUM3 
AXNUM 
PROCEDURE ACTUALPARAPARTCSBITsINDEX)s VALUE SBIT» INDEX; 
ACTUALPARAPART 
BOOLEAN SBIT3 REAL INDEX} 
BEGIN LABEL EXITs»COMMONs ANOTHERs POLS 


PRT(573) = 
PRT(574) ® 


REAL PCTReSCLASSs ACLASS3 
STACK(Fs2) = PCTR 
STACKCF 43) * SCLASS 
STACKCF +4) = ACLASS 
STREAM PROCEDURE WRITEAXCLINE*ACCUMeNeSEQ)3 VALUE Na 
PRT(575) = WRITEAX 
BEGIN OI © LINES 15608 © 8 LIT ™ "93 
DI «© LINES SI © SEQs SI © SI™163 DOS © WOS5 
DI © DIe4s DS © 20 LIT "ACCIDENTAL ENTRY AT "3 
ST © ACCUMS SI © SJ*#33 DS © N CHR} 
ST © SEQs DI ¢ SEGS DI © pl#16s DOS © woss 
ENDS 


BOOLEAN VBIT»IOBITS 
STACK(F 45) ® VBIT 
STACKCFS6) = IDBIT 
PCTR © 13 
ACLASS ¢ STEP[ROC47I47I14); 
STACKCT © 03 
GT1 © TAKECINDEX+PCTR)S 
VBIT © BOOLEANCGT10VO)3 
SCLASS © GT1¢CLASS&OL4784781)3 
IF VBET THEN BEGIN AEXPS GO TO COMMON ENDS 
IF SBIT THEN SCLASS © NAMEIDS 
IDBIT © BOUID < ACLASS AND ACLASS < LABELID3 
IF SCLASS @ NAMEID THEN 
BEGIN 


ANOTHER? 


393 1S 


07022000 
07023000 
07024000 
07025000 
07625010 
07025020 
07025030 
07026000 
07027000 
07628000 
07029000 
07030000 
07631000 
07032000 
07633000 


535 LONG 


07034000 


07035000 


07036000 
07037000 


START OF SEGMENT 


07038000 


07038100 


07038200 
07038300 
07038400 
07038500 
07038600 
07038700 


07039000 


07040000 
07041000 
07041200 
07042000 
07043000 
07044000 
079045000 
07046000 
07047000 
07048000 
07049000 


T 
T 
T 
P 
¢ 
¢ 
C 
T 
T 
T 
T 
T 
T 
T 
T 
r 


bi 


T 


T 
T 


0017 
0019 
0019 
0022 
0023 
0026 
0042 
0045 
0045 
0046 
0048 
0049 
0050 
0052 
0053 
NEXT SEG 


0442 
0442 


0442 
0442 


eae eeeae ies 


T 


— 


—t tt tts 


ee ee ee ee ee a 


0000 


0000 


0000 
0002 
0003 
0006 
0007 
0008 


0008 


0008 
0009 
0012 
0012 
0014 
0015 
0018 
0019 
0024 
0023 
0024 


3 


34 


POL: 


COMMONS 


IF [OBIT THEN VARIABLECFL) 
ELSE 
IF ELCLASS = POLISHV THEN POLTSHER(1) 
ELSE ERRCIF ELCLASS20 THEN O ELSE 123)3 
GO TO COMMONS 
ENDS 
IF SCLASS = REALARRAYID THEN 
IF ACLASS = REALARRAYID THEN 
BEGIN VARIABLECFL)S GO TO COMMON END 
ELSE GO TO POLS 
IF SCLASS ¥ REALIO THEN 
BEGIN FLAG(303)3 
AEXP3 
ERRORTOG «* TRUES 
GO TO COMMONS 
ENO} 
GTi © TABLECI41)3 
IF GTi = COMMA QR GT = RTPAREN THEN 
BEGIN IF IOBIT THEN 
BEGIN IF ACLASS © REALIO AND 
BOOLEANCELBATCIIU.«FORMAL) THEN BEGIN 
CHECKER CELBATEIIJ)3 
EMITPAITRCELBATCIJ,ADDRESS*L0D)3 
STEPITS END 
ELSE VARITABLECFL)s 
GO TO COMMON END3 
TF ELCLASS § STRNGCON AND ELCLASS > LABELIO 
THEN BEGIN PRIMARYS GO TO COMMON ENDS 
ENDS 
EMITOCNOP)S EMITOCNOP)3 
SCLASS ¢ Li 
ADJUSTS 
ACLASS © Lel3681074 
IF [OBIT THEN 
BEGIN VARIABLE CFLQ3 
IF ELCLASS < AMPERSAND THEN GO TO COMMONS 


SIMPARITH3 
END ELSE AEXP: 
IF LISTER THEN 
BEGIN ACCUM(CA1 © Q3 
WRITEAXCLINCO JS ACCUME1I20,C1296)> 
INFOCLASTSEQROWsLASTSEQUENCE J 23 
WRITELINES 
ENDS 
AXNUM © AXNUM#4; 
EMITOQCRTS)3 
EMI TBCBFWsSCLASS«L D3 
EMITNUMCACLASS)3 
EMITPAIR( TAKECPROINFO) eADDRESS*L00)3 
EMITOCINX)3 
EMITN(S512)3 
EMITO(33018>15)3 
EMITCQQ3 
EMITOCSeSe1)3 
PCTR © PCTR+13 
IF ELCLASS # COMMA THEN GQ TO ANOTHER: 


07050000 
07051000 
07052000 
07953000 
07054000 
07955000 
07056000 
07057000 
07038000 
07059000 
07060000 
07061000 
07062000 
07063000 
07964000 
07063000 
07066000 
07067000 
07068000 
0F869000 
07970000 
07670500 
07071000 
07072000 
07073090 
07074000 
07075000 
07076000 
07077000 
07078000 
07079000 
07080000 
07081000 
07082000 
07983000 
07084000 
07084500 
07085000 
07086000 
07086100 
07086200 
07086300 
07086400 
07086500 
07086600 
07086700 
07087000 
079888000 
07889000 
07090000 
07091000 
07092000 
07093000 
07093400 
07093200 
07094000 
07095000 


ee ee ee eee ee ee ee ee eee ee ee ee Le Le LL Le Lee. 


0024 
0025 
0026 
0028 
0032 
0032 
0032 
0033 
0034 
0036 
0036 
0037 
0038 
0039 
0039 
0040 
0040 
Q042 
0043 
0044 
0045 
0047 
0048 
0050 
0050 
0052 
0052 
0053 
0055 
0055 
0057 
0058 
0058 
0059 
0060 
0064 
0062 
0062 
0063 
0064 
0064 
0066 
0068 
0069 
0079 
0079 
0084 
0084 
0083 
0083 
0085 
0086 
0087 
0088 
0089 
0090 
0092 


EXITS 


PROCEDURE PROCSTMTCFROM)s VALUE FROM3 


STACK(F 42) = HOLE 
STACKCF +3) = ADDRESS 


STACKCFS4) ® J 


OK) 


PRT(S76) # *LIST»s 


COMMENT 


EXIT$ 


LABEL» 
COMMENT 


IF ELCLASS # RTPAREN THEN 
BEGIN ERR(129)5 GO To EXIT ENDS 
IF TAKE CINDEX) sNOODIMPART+1 # PCTR THEN 
BEGIN ERR(128)3 GO TO EXIT ENDS 
STEPITS 
STACKCT © O3 


END ACTUAL PARAPART} 


BOOLEAN FROM3 


BEGIN 
REAL HOLE»ADDRESS; 


REAL J3 LABEL OK3 
LABEL EXITS 
SCATTERELBATS 
HOLE® ELBATCIQ3 
ADDRESS © ADORSF3 
IF NESTOG THEN 
IF MODE#O THEN 
IF TABLECI#1)*ASSIGNOP THEN 
BEGIN FOR J*CALLINFO STEP 1 UNTIL CALLX 00 
IF CALLC¥ISADDRESS THEN GO TU OK3 
CALLECALLX*#CALL X41 J*ADORESS3 
ENDS 
CHECKERCHOLE)3 
IF ELCLASS # PROCIO THEN 
IF NOT FORMALF THEN 
IF TABLECIT*#1) * ASSIGNOP THEN 
BEGIN VARIABLECZ*REALCFROM))3 GO TO EXIT ENDS 
OR SEGMENT DESCRIPTOR® 
CALL VARIABLE TO HANDLE THIS ASSIGNMENT OPERATIONS 
IF ELCLASS # PROCID EQV FROM 
THEN BEGIN ERR(159)3 GO TO EXIT ENDS 
IT IS PROCEDURE IF AND ONLY WE COME FROM STMT3 
STEPIT3 
EMITOCMKS)3 
IF ELCLASS = LEFTPAREN 
THEN ACTUALPARAPARTCFALSEsGITCHOLE)) 
ELSE IF FORMALF THEN L ¢ Le} 
ELSE IF TAKECGITCHOLE)) eNODIMPART#O THEN ERR(128)3 
EMITVCADDRESS)3 


END PROCSTMTS 


PROCEDURE STRMPROCSTMT3 


BEGIN REAL WHOLE sFIXe Tis 


24 IS 


25 «IS 


07096000 
07097000 
07098000 
07099000 
07100000 
07100500 
07101000 


166 LONG 


07391000 
0F 392000 
073893000 


START OF SEGMENT 


07393100 


07394000 
07395000 
07396000 
07397000 
07397100 
07397200 
07397210 
07397300 
07397400 
07397500 
07397600 
07398000 
07399000 
07400000 
07401000 
oF402000 


07403000 
07404000 
07405000 
07406000 
07407000 
07408000 
07409000 
07410000 
07411000 
07412000 
07443000 
0F 425000 


46 LONG 


07426000 
07427000 


ee 


oo Ree ee See ee ee ee ee ee ee ee ee ee ee 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 
T 


0093 
0094 
0096 
0098 
0100 
0100 
0104 
NEXT SEG 


O442 
Q4490 
0442 


Waka ae 


0000 


0000 
0000 
0000 
0004 
0002 
0002 
0003 
0006 
0008 
0014 
0018 
0019 
0019 
0020 
0024 
0023 


0028 
0028 
0029 
0031 
0031 
0032 
0032 
0033 
0035 
0037 
0042 
0042 
NEXT SEG 


0442 
0442 


START OF SEGMENT wwettteewse 


3 


25 


3 


56 


STACK(F 42) @ WHOLE 
STACKCF +3) = FIX 
STACKCFe4) = Ti 


07428000 T 0000 
07429000 T 0000 
WHOLE © ELBATCIJS FIX © @43 07430000 T 0000 
IF ELCLASS # STRPROCID THEN EMITCO)3 07431000 T 0002 
IF WHOLE, LVL # 4 THEN 07432000 T 0004 
BEGIN FIX « Ld & © bel ENDS 07433000 T 0005 
EMITO(MKS)3 07434000 Tt 0007 
Ti # TAKEFRST,Cit6]3 07435000 T 0008 
FOR GT1 © 1 STEP 4 UNTIL T1 DO EMITCO)S 07436000 T 0010 
IF STEPI # LEFTPAREN THEN ERR(128) 07437000 T 0044 
ELSE BEGIN ACTUALPARAPART(TRUE*GITCWHOLE))3 07438000 T 0015 
IF FIX < 0 THEN EMITVCWHOLE» ADDRESS) 07439000 T 0018 
ELSE BEGIN Ti © L3 L © FIXS 07440000 T 0039 
WHOLE © TAKECGITCWHOLE) 23 07441000 T 0022 
EMITNUM(T1+2°WHOLE,C16#12))3 07442000 T 0024 
L © TL 07443000 7 0026 
EMITBCBBWsBUMPL »WHOLE 5 (28812])3 07444000 T 0027 
ENDS 07445000 T 0030 
END END STRMPROCSTMTS 07446000 T 0030 
56 IS 33 LONG. NEXT SEG 3 


INTEGER PROCEDURE BAES 07458000 7¥ O442 
BEGIN BAE © BUMPLS CONSTANTCLEANs ADJUST END BAE3 07459000 T O442 
COMMENT RELSESTMT COMPILES THE RELEASE STATEMENTS 07460000 t O447 
COMMENT OOSTMT HANDLES THE 0O STATEMENT; 07481000 fT Q48&7 
PROCEDURE DBSTMT3 07482000 T 0447 
PRT(877) 2 DOSTMT 
BEGIN INTEGER TL3 074863000 T OQ447 
START OF SEGMENT «exten wwe 57 
STACKCF4+2) = TL 
FOULED ¢« Ls 07483500 T 0000 
OF 484000 T 0000 
STEPITS TLeLs STMT3 IF ELCLASS #4 UNTILY THEN ERR(131) 07485000 fT 0000 
ELSE BEGIN 07486000 T 90004 
STEPITS BEXPs EMI TBC BBC»BUMPLsTL? END 07487000 FT 0005 
END DOSTMT3 07488000 tT 0008 
57 IS 11 LONG, NEXT SEG 3 


COMMENT WHILESTMT COMPILES THE WHILE STATEMENTS 07489000 T 0447 
PROCEDURE WHILESTMT3 0F490000 T O447 
PRT(600) = WHILESTMT 


BEGIN INTEGER BACK» FRONT} 07491000 T O44? 
START OF SEGMENT wewtttwwwe 58 


STACK(CFe2) # BACK 


STACK(F 43) = FRONT 


FOULED ¢ L3 


STEPITs BACK © L$ BEXP3 FRONT © BUMPL; 
IF ELCLASS # DOV THEN ERR(132) ELSE 
BEGIN STEPITS STMT EMITBCBBWsBUMPL» BACK) 3 
CONSTANTCLEANS EMITBCBFCsFRONT»sL) END ENO WHILESTMTS 


GOSTMT COMPILES GO TO STATEMENTS, GOSTMT LUUKS AT THE 
EXPRESSIONe IF IT 1S SIMPLE ENOUGH WE GU DIRECTLY. 
OTHERWISE A CALL ON THE MCP IS GENERATED IN ORDER TO GET 
STORAGE RETURNEDe SEE DEXP AND GENGOS 

PROCEDURE GOSTMT3 

PRT(601) = GOSTMT 


COMMENT 


BEGIN 
REAL ELBWS 


STACK(F 42) © ELBW 
WABEL GOMCPsEXIT; 
IF STEPI ® TOV THEN STEPIT3 
IF ELCLASS # LABELIO THEN TB1 * TRUE 
ELSE IF ELCLASS = SWITCHID THEN TB1 « FALSE 
ELSE BEGIN IF ELCLASS & POLISHV THEN 
BEGIN POLISHER(1)3 EMITOCBFW) END 
ELSE ERR(504)3 
GO TO EXIT 
ENDS 
IF NOT LOCALCELBATCIJ) THEN 
BEGIN 
IF TB1 THEN 
BEGIN EMITVCGNATCELBAT(IJ))3 
EMITOCBFW)3 
STEPITS 
GO TO EXIT ENDS 
BEGIN ERR(501)4 GO TO EXIT ENDS 


ENDS 
IF TBl THEN BEGIN GOGENCELBATCIJsBFW)s STEPITS 
CONSTANTCLEANS GO EXIT END 
BEGIN 
ELBW * ELBAT(IIJ3 


ELSE 


BANA3 
EMITOCOUP)3 
EMITOCADD)3 
EMITOCBFW); 
GT3 © TAKECGTS*GITCELBW) )4GT43 
FOR GT4 « GT44) STEP 1 UNTIL GT3 00 
GOGENCTAKE(GT4),BFW)3 
ENDS 
EXIT!’ END GOSTMT3 


28 IS 


29 IS 


07491500 
07492000 
07493000 
OF 494000 
07495000 
07496000 


14 LONG 


07497000 
07498000 
07499000 
07500000 
07901000 


07502000 
07503000 


START OF SEGMENT 


07804000 
07805000 
07906000 
07807000 
07511000 
07912000 
07913000 
07514000 
07515000 
07916000 
07516100 
07516200 
07316300 
07516400 
07516500 
07516600 
07517000 
07517500 
07518000 
07519000 
07520000 
07521000 
07522000 
07523000 
07524000 
07525000 
07526000 
07527000 
07528000 
07929000 
07530000 
07$31000 


39 LONG 


T 
T 
T 
T 
T 
T 
, 


T 
T 
T 
T 
T 
T 
T 
* 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


0000 
0000 
0000 
0004 
0006 
0010 
NEXT SEG 


0447 
0447 
0447 
0447 
0447 


O44? 
0447 


wae tttataw 


0000 
0000 
0002 
0003 
0006 
0007 
0009 
ool 
0044 
0011 
012 
0013 
0013 
0015 
0016 
0016 
0017 
0018 
018 
0021 
0022 
0022 
0023 
0023 
0024 
0024 
0025 
0026 
0029 
0033 
0035 
0035 
NEXT SEG 


3 


29 


3 


STACKC(CF ee) = TI 
STACKCF 43) = T2 


PROCEDURE GOGENCLABELBAT sBRANCHTYPE D3 
VALVE LABELBATsBRANCHTYPE; 
REAL LABELBATsBRANCHTYPES 
BEGIN 
IF BOOLEANCGTI©TAKECGT2eGITCLABELBAT))2.01°1) 
THEN EMITBCBRANCHTYPEs,BUMPL2GT1,036%12) ) 
COMMENT LABELR SETS THE SIGN OF THE ADDITIONAL INFQ FOR A LABEL 
NEGATIVE WHEN THE LABEL IS ENCOUNTEREDe SO THIS MEANS 
THAT WE NOW KNOW WHERE TO GOs 
ELSE BEGIN EMITCGT1)3 EMITCBRANCHTYPE )3 
PUTCGTL&L036836812)]2GT2) END END GOGEN} 


COMMENT SIMPGO IS USED ONLY BY THE IF STMT ROUTINE, 
A STATEMENT IS A SIMPLE GO TO STATEMENT 
BOOLEAN PROGEDURE SIMPGOs 
BEGIN LABEL EXITS 


IT DETERMINES JF 


IF ELCLASS # 
THEN BEGIN 
TF STEPI = TOV THEN STEPITS 
IF ELCLASS = LABELID THEN 
IF GOCALCELBATCI]) THEN 
BEGIN SIMPGO ¢ TRUES GO EXIT ENDS 
T¢ Teds ELCLASS © GOV END; 


GOV 


EXIT#’ END SIMPGOs 


COMMENT IFSTMYT COMPILES IF STATEMENTS. SPECIAL CARE IS TAKEN TO 
OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS. TO SOME 
EXTENT SUPPERFULOUS BRANCHING IS AVOIDEDS 

PROCEDURE IFSTMTS 


BEGIN REAL TieT23 LABEL EXITS 


IFCLAUSE3 
IF SIMPGO 
THEN BEGIN 
Ti © ELBATECIIs 
IF STEPI #* ELSEV 
THEN BEGIN 
STEPIT3 
IF SIMPGO 
THEN BEGIN 
GOGENCELBATCIJsBFC)s GOGENCTI,BFW)3 
STEPITS GO TO EXIT END ELSE BEGIN EMITLNGSGOGEN(TIsBFC)3 
STMT 5 GO TO EXIT END END 3 
EMITUNGS GOGENCT1sBFC)3 
GO EXIT ENDS 
Ti © BUMPLZ STMT3 
IF ELCLASS # ELSEV THEN 


07535000 
07536000 
07537000 
07538000 
07939000 
07540000 
07341000 
07542000 
07343000 
07544000 
07545000 


073546000 
07547000 
07548000 
07549000 


START OF SEGMENT 


60 IS 


07550000 
078951000 
07552000 
07553000 
07854000 
07355000 
07556000 
07557000 


13 LONG 


07558000 
07559000 
07560000 
07561000 
07562000 


START OF SEGMENT 


07563000 
07564000 
07965000 
07566000 
07367000 
07968000 
07369000 
07970000 
07971000 
0#572000 
07573000 
07574000 
07575000 
07376000 
07977000 
07578000 


ee ee ee ee) 


ae ee ee ee ee ee ee 


Ante HHH te 


447 
0447 
0447 
0447 
0447 
0450 
0453 
0453 
0453 
0453 
0456 


04586 
0458 
0458 
0458 
wees 
0000 
0000 
0004 
0003 
0004 
0005 
0007 
0009 
NEXT SEG 


0458 
0458 
0438 
043586 
0458 


Week akan 


0000 
0000 
0000 
0001 
0002 
0003 
0004 
0004 
0004 
0005 
0007 
0010 
0014 
0013 
0013 
0016 


60 


3 


61 


BEGIN IF L#T1>4023 THEN ADYUSTS EMITBCHFCoT4eL)3 07579000 T 0016 
GO EXIT ENDS 07879100 T 0020 
STEPITS 07980000 T 0024 
IF SIMPGO 07581000 T 0023 
THEN BEGIN 07982000 T 0024 
T2 © LS L eTI®2sSGOGENCELBATCIJsBFC)3 L © T23 07583000 tT 0022 
STEPITS GO EXIT ENDS 07584000 T 0026 
T2 © BUMPLS CONSTANTCLEAN3 07985000 T 0027 
IF L*T1>1023 THEN ADJUSTS EMITBCBFCsTislL ds STMT; 07585100 T 0030 
IF L*T2>1023 THEN ADJUSTS EMITB(BFWsT20L)i 07586000 T 0034 
EXIT’ END IFSTMTS 07987000 T 0037 
61 18 41 LONGs NEXT SEG 3 
COMMENT LABELR HANDLES LABELED STATEMENTS, IT PUTS & INTO THE 07888000 YT 0458 
ADDITIONAL INFOQ AND MAKES ITS SIGN NEGATIVE, IT COMPILES 07589000 T 0458 
AT THE SAME TIME ALL THE PREVIOUS FORWARD REFERENCES SET 07590000 T 0458 
UP FORK IT BY GOGENe (THE ADDITIONAL INFO LINKS TO A LIST 07591000 T 0458 
IN THE CODE ARRAY OF ALL FORWARD REFERENCES)3 07592000 r 0458 
PROCEOYRE LABELR3 07993000 T 0458 
PRT(602) @ LABELR 
BEGIN LABEL EXIT» ROUNDS 07594000 T 045g 
START OF SEGMENT eaawttunee 62 
DEFINE ELBATWORDSRROSsLINKaGT2&, INDEXSG73#,» ADDITIONAL 07895000 Tt 0000 
ZGTABPNEXTLINK&GTS#3 07596000 fT 0000 
REAL ULOLs 07996500 T 0000 
STACK(F 42) = OLDOL 
DO BEGIN OLOL « L3 07597000 T 0000 
IF STEPI # COLON THEN 07597500 fT 0000 
BEGIN ERR(133)3 GO TO EXIT ENDS 07898000 fT QU0y 
IF NOT LOCALCELBATWORD «+ ELBATCI@1)) 07599000 T 0003 
THEN BEGIN FLAG6134)23 GO TO ROUND END3 07600000 T 0004 
IF STEPI = COLON THEN 07600100 T 0007 
BEGIN I © Tels a~QvUST END ELSE 07600200 T 0008 
IF ELCLASS # LITNO THEN L © 4xC ELSE 07600300 tT 0010 
IF ELCLASSSASTRISK THEN OF#00400 T 0013 
BEGIN IF MODE # 0 OR ASTOG THEN 076004610 T 0015 
FLAG(505)3 07600420 7 0016 
ASTOG © TRUE} 07600430 T 0018 
L © 4xPRTT3 07600440 T O08 
END ELSE 07600450 T 0020 
I ¢ [*23 07600500 T 0020 
IF STEPI # COLON THEN OP600600 T 0021 
BEGIN ERR(133)93 GO TO EXIT ENDS 07600700 7 0022 
IF & < OLDL THEN 07600800 T 0024 
BEGIN FLAG(504)3 GO TO ROUND END 07600900 T 0025 
GT1 © TABLECI¢1)3 07600950 T 0027 
LINK © CADDITIONAL © TAKECINDEX © GITCELBATWORD))) 07601000 tT 0028 
003681223 07602000 fT 0030 
IF ADDITIONAL «< 0 THEN 07603000 tT 0032 
BEGIN FLAG(135)3 GO TO ROUND ENDS 07404000 T 0032 
FOULED * 3 07604010 T 0034 
IF TABLECI#1) * COLON THEN 07604020 fT 0035 
BEGIN 07604030 T 0037 
IF LINK#O THEN BEGIN OLDL © Ls 07604040 T 0037 


NEXTLINK © GETCLINKI3 
L © LINKS 
IF OLOL,C 36810)", 63681032128 
THEN FLAG(S0O) ELSE 
EMITCOLDL*LINK&OL463 468 2)¢ 
OBNEXTLINK£E4614692)4+3072)3 
Lb © L@h3 
END UNTIL LINKeLINK*®NEXTLINK DIV 4eL3 
 « OLOLS ENDS STEPITS 
OO IF STEP] $ STRNGCON AND ELCLASS 2 
NONLITNO THEN EMI TWORDC(C) 
ELSE BEGIN ERR(500)3 ] © I*1 END 
UNTIL STEP] # COMMA; 
) a dae le Wa 
ENO ELSE 
WHILE LINK # Q 
00 BEGIN 
NEXTLINK © GETCLINK#2)3 
IF L®LINK>1023 THEN ADJUSTS 
EMITBCGETCLINK®@1 )eLINKebh 23 
LINK © NEXTLINK ENDS 
PUTC*ADDITIONAL&L 036836812) 5 INDEX); 
ROUNDS ERRORTOG © TRUE END UNTIL STEPI ¥ LABELIDs 
EXIT’ END LABELRS 


DO BEGIN 


PROCEDURE FILLSTMTCSIZE)3 vaALyE SIZE INTEGER SIZE3 
PRT(603) *® FILLSTMT 
BEGIN 
COMMENT "COCT" PERFORMS THE OCTAL CONVERT FOR THE FILL STATEMENT, 
IF THERE ARE ANY NONWOCTAL OIGITS» THIS PROCEDURE RETURNS 
A ZERO ANDO THEN THE 3 LOWPORDER BITS OF THE BAD OIGIY ARE 
RESET AND IGNORED AND ERROR NUMBER 303 IS PRINTEDe “COCT" 
ALLOWS FLAG BITS TO BE SETs WHEREAS "OCTIZE™ DOES NOT, 


N NUMBER OF CHARACTERS TO BE CONVERTED. 

SKBIT NUMBER OF BITS TO SKIP BEFORE STARTING CONVERSIONs 
THIS IS BECAUSE THE NO, OF CHARS, MAY BE LESS THAN 
8 AND IT MUST BE RIGHT@JUSTIFIED IN COCCODEFILE). 

Ace ADDRESS QF THE ACCUM WHERE ALPHA INFOQ IS KEPT, 


REAL STREAM PROCEDURE COCTCNeSKBITsACCeCOS VALUE Ne SKBIT3 
PRT(604) = COCT 

BEGIN 

STtaACCs SIteST+63 OIs8COs OStes LIT"00000000"%;3 

OlssCO § SKIP SKBIT OBSTALLYta43 

NCIF SCO"7"THEN TALLY$#03 SKIP 3 S83 

3CIF SB THEN OSt#1 SET ELSE SKIP 4 OBS SKIP 1 SB))3 
COCTESTALLY 
END COCTS 


REAL Tas 


62 IS 


07604050 
07604060 
07604067 
07604068 
07604070 
07604080 
07604085 
07604090 
07604100 
07604410 
07604120 
07608130 
07604440 
07604150 
07604160 
07605000 
07606000 
07607000 
07607300 
07908000 
07609000 
07610000 
0F645000 
07646000 


84 LONG 


07647000 


07647500 
07648000 
07648500 
07649000 
07649500 
07650000 
07650500 
07651000 
07651500 
07652000 
07652500 
07653000 
07653500 


START OF SEGMENT 


07654000 
07654500 
07655000 
07655500 
07656000 
07656500 
07657000 


07657500 


t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Ls 
’ 


+ 


eHAtst ost ote st ts 


ee 


0039 
0041 
0042 
0043 
0045 
0048 
0050 
0051 
0054 
0055 
0057 
0058 
0063 
0064 
0065 
0065 
0067 
0068 
0070 
0072 
0074 
0075 
00786 
0080 
NEXT SEG 


0458 


0458 
0458 
0456 
0458 
0456 
0458 
0458 
0458 
0458 
0458 
0458 
0458 
0458 


RARER D 


0000 
0000 
0002 
0003 
0005 
0007 
0007 


0008 


3 


63 


STACKCF +2) & T2 
LABEL Lis 
STREAM PROCEDURE ZEEROQCO)3 
PRT(605) # ZEERO 
BEGIN 
DIs20s0St38 LIT"O0000000") 
ST8a0331C632°CDSt8W0S))3 US8H30 WOS3 
END ZEEROSs 


STREAMTOG!S sBOOLEAN( 223 
SEGMENTSTARTCTRVUE )3 
IF STEPIZASSIGNOP THEN ZEEROCCODE(1)) 
GLSE BEGIN 
FOR T2381 STEP 1 UNTIL SIZE DO 
BEGIN 
IF STEPI>IDMAX THEN 
BEGIN 
IF ELCLASSZLITNO AND ELCLASSZNONLITNO THEN 
IF ELCLASS#STRNGCON THEN 
IF ELCLASS=ADOP AND 
CSTEPI@®NONLITNO OR ELCLASS&LITNO) THEN 
CisC & ELBATC(Ie1iCiseiti) 
ELSE BEGIN ERRORC302)5 GO TO LI ENDS 
IF ELCLASSSSTRNGCON AND COUNT®8 THEN 
MOVECHARACTERS( 8s ACCUM( 1) 530 CODE(T2)20) 
ELSE MOVECL»CeCODECT2)) 


END 
ELSE IF COUNTS19 AND ACCUME1),CABELBIR"OCT™ THEN 


BEGIN 
iF ect ¢COUNT#3248=CCOUNT#3)%3y ACCUMELI> 
CODEC T2))80 THEN FLAG(C 303) 
END 
ELSE BEGIN ERROR(302)4 GO TO Li 
IF STEPIZCOMMA THEN GO TO Li 
ENDS 
ERROR(S4)3 
END3 


END 3 


RIGHTCSIZExG)3 
STREAMTOGSaFALSES 

SEGMENT(SIZE20)3 

PROGDE SCBLORCADDRSF » TRUEs SIZE» DDES)3 
ENO FILLSTMTS 


PROCEDURE STMT3 
BEGIN LABEL 


Wie bee &3e Loe L5e LOe L7e LBs L9e L10s 
Lite L125 Lids L14> Lids L165 LA7s Lids Lids 20s 
Lele 229 L23e L24e L25e L26s L27s L28se L29s 1.302 


63 158 


07658000 
07658500 


07659000 
07659500 
07660000 
07660500 


07661000 
07661500 
07662000 
07662500 
07663000 
07663500 
07664000 
07664500 
07665000 
07665500 
07666000 
07666500 
07667000 
07667500 
07668000 
07668500 
07669000 
07669500 
07670000 
07670500 
07671000 
07871500 
07672000 
07672500 
07673000 
07673500 
07674000 
07674500 
07675000 
07675500 
07676000 
07676500 
07677000 
07677500 


¥2 LONGs NEXT SEG 


07711000 
07712000 


START OF SEGMENT 


41-4 


444-4 


ee ioe eee ee Bee Bee ee ee ee ee ee he ee ee 


T 
T 


eantakhatan 


0008 
0008 


0008 
0009 
0010 
0012 


0042 
0013 
0014 
0019 
0020 
0024 
0021 
0022 
0022 
0024 
0025 
0026 
0029 
00314 
0033 
0035 
0040 
0044 
0045 
0048 
0048 
0052 
0057 
0057 
0060 
0064 
0064 
0064 
0064 
0065 
0066 
0067 
0068 
0069 


04658 
0458 


07713000 FT 0000 


07734000 
07745000 


T 
T 


0000 
0000 


3 


64 


AGAIN! 


LATLASLSELAPLSPLOSLOCL ADELA SOL ASsLaSsLgOsL a7 FL 2OeL are essLestLagtL aun 


Lake F322 L332 L34e L355 £365 L375 £389 L39s 40s 
L412 L420 L430 L44de La4Se L465 LA7s LBs L&D» 1502 
L515 L322 L53, 154% 
SwITCh § «¢ 
Lie b2s Lae Laos LSe Lbs L7e Loe LO» iO, 
Lids Lids Lids L14s Lids £165 Li7s Libs Li9e L20s 
L2ie L229 L236 L24e La5s 126s L27> 28s L29e 30s 
L3ks L325 L335 34 L355 £365 L37e £38s 39s 40, 
WGte L420 Lasse Lage Lads Lubes L47s Lads Lads L502 
L545 LS2s L535 1543 
LABEL AGAINSEXITS 
STACKCT «© 03 
GO TO SCELCLASS]3 
IF ELCLASS s COLON THEN 
BEGIN STEPITs GTi © Ls 
IF ELCLASS = COLON THEN 
BEGIN ADVUSTZ I © I*1 END 

ELSE IF ELCLASS # LITNO THEN & © 4x¢ 

ELSE I «© 143 

IF & <« GT1 OR STEPI # COLON THEN 

BEGIN ERRC504)%s GO TO EXIT ENDS 
STEPIT3 
GO TO AGAIN3 
ENDS 

IF ELCLASS = O THEN FLAG(100)3 FLAG(145)3 


L3Z*LIGILISHL I63L 37 IL aot 


ERRC144)3 GO TO EXIT; 


L7eLsas 

SUBHANOCTRUEDS GO TO EXIT; 
LiOsLissLigs 

PROCSTMTC(TRUEDS GO TO EXITS 
Lids 


STRMPROCSTMTS GO TO EXITS 


Le2shL23thL26sLe7tL30su3ais 


32: 
38:3 
L403 


L42s 
L433 
L443 
L45% 
L513 


VARIABLECFS)3 GO TO EXITS 

LABELRS GO TO AGAIN; 

POLISHERCO)3 GO TO EXITS 

IF ELBATCII,ADDRESS = STREAMV THEN 
BEGIN INLINES GO TO EXIT ENDS 

FLAGCL46)3 

IF TABLECI°2) = ENDV AND MODE > O THEN 
BEGIN I © T*2s ELCLASS « ENOVS GO TO EXIT ENDS 

I ¢ [#13 ERRORTOG © TRUES BLOCK(FALSE)3 

ELCLASS © TABLECIel1)3 GO TO EXIT; 

DBLSTMTS GO TO EXITS 

FORSTMTS GO TO EXIT; 

WHILESTMTS GO TO EXITS 


DOSTMTS GO TO EXITS 


07716000 
07737000 
07718000 
0719000 
07720000 
07721000 
07722000 
07723000 
07724000 
07725000 
07726000 
07726990 
07727000 
O7727010 
07727020 
07727030 
07727040 
07727050 
07727060 
07727070 
07727080 
07727090 
07727100 
07727410 
07728000 
07729000 
07730000 
07732000 
07732000 
07733000 
07734000 
07735000 
07736000 
07737000 
07738000 
07739000 
07740000 
07741000 
07742000 
07743000 
07744000 
OF 745000 
07746000 
07%47000 
07748000 
07749000 
07750000 
07751000 
07752000 
07753000 
07754000 
07755000 
07786000 
07#57000 
07758000 
07759000 
07760000 


AHAH AHHH HH HHH st HH tt to A ts a tt a et 


0000 
0000 
0000 
0000 
0002 
0002 
0002 
0002 
0000 
0002 
0030 
0030 
0034 
0034 
0034 
0036 
0037 
0039 
0044 
0044 
0046 
0048 
0046 
Q049 
0049 
0054 
005ea 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0059 
0060 
0061 
0062 
0062 
0063 
0064 
0065 
0067 
0067 
0070 
0073 
0076 
0079 
0079 
0080 
0080 
0064 
0081 
0062 
0082 
0083 


PRT(606) 
PRT(607) 
PRT(610) 
PRT(611) 
PRT(612) 
PRT(613) 
PRT(614) 


PRTC615) 


PRT (616) 
PRT(617) 
PRT(620) 
PRT(621) 


PRT(622) 
PRT(623) 
PRT(624) 


ua nanannniin 


IFSTMTsS GO TO EXITS 


IF ELBATCIJ¢ADDRESS = STREAMV THEN IF STEPI & 


ENO ELSE COMPOUNDTAILS 


L523 
GOSTMTS GO TO EXrTs 
L538 
IOSTMTS GO TO EXIT 
L543 
IF STEPI & DECLARATORS THEN 
BEGIN 
LEFTPAREN THEN 
BEGIN 
ELCLASS*TABLECIeI*41) 3 
COMPOUNDTAIL 3 
GO TO EXIT 3 
ENO ELSE J «© I © 13 
Ted 43 
BLOCKCFALSE)3 
L46tLa7sLaeitsos 
Lagtl ai 


EXIT! END STMT3 


PROCEDURE YQSTMT3 
IF STEPI # LITNO OR (GTI*ELBATCI),ADORESS)>15 THEN ERR(9S)ELSE 


BEGIN EMITCELBATEI 91) .ADDRESS&GTIC4184751 8G TIL 3684413) )3 


STEPIT 


END SCOPE STATEMENTS 


PROCEOURE FORSTMT3 


8 

STMTSTART 
REGO 
RETURNSTORE 
AODRES 

Vv 

VRET 


BRET 


SIGNA 
SIGNB 
SIGNC 
INT 


CONSTANA 
CONSTANB 
CONSTANC 


BEGIN 


OWN REAL Be STMTSTARTsREGOsRETURNSTORE» ADDRESs Ve VRETs 


BRET3 


OWN BOOLEAN SIGNAsSIGNB»SIGNCs INT» 


CONSTANAsCONSTANBsCONSTANCS 


Be a@ ae 


aoa 


07761000 
07762000 
OF763000 
07764000 


07765000 
07766000 
07767000 
07768000 
07768100 
07768110 
077684320 
07768130 
07768140 
07768160 
077686170 
07768180 
07768200 
07769000 
07770000 
07771000 
100 LONG 


a a a at a a a tt 


64 1S 


07991000 
07993000 
07994000 
07998000 
07996000 
07997000 


| 


08008000 
08009000 
08010000 
START OF SEGMENT 


e444 


08011000 T 
08012000 T 


08013000 T 


0083 
0084 
0084 
0085 
0085 
0086 
0086 
0087 
0087 
0090 
0090 
OO91 
0093 
0093 
0094 
0096 
0097 
0099 
0099 
0099 
NEXT SEG 


0458 
0458 
0458 
0463 
0468 
0468 


0468 
0468 
0468 


weaeevenwkew 


0000 
0000 


0000 


3 
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DEFINE SIMPLEB = SIGNCH>, FORMALV = SIGNA#>s 
SIMPLEV # CONSTANA#* A ® V#s Q ® REGO#s 
OPOC 3 YRUE#s DESC # FALSE#» K = BRET#S 
LABEL EXITS 
COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 
CONSTANT DEPENDING ON THE REQUIREMENTS3 
PROCEDURE PLUG(C»AIs VALUE CoAs REAL As’ BOOLEAN C3 
PRT(625) * PLUG 
IF C THEN EMITNUM(A) ELSE EMITVCA,ADDRESS D3 


COMMENT SIMPLE DETERMINES IF AN ARITHMETIC EXPRESSION 1S * OR @ A 
CONSTANT OR A SIMPLE VARIABLE. IT MAKES A THROUGH REPORT 
ON ITS ACTIVITY. IT ALSO MAKES PROVISION FOR THE RESCAN 
OF ELBAT (THIS IS THE ACTION WITH K © SEE CODE IN THE 
TABLE ROUTINE FOR FURTHER DETAILS)3 
BOOLEAN PROGEDURE SIMPLECBxA2S)3 BOOLEAN BoSs REAL AS 
PRT(626) = SIMPLE : 
BEGIN 
S ¢ JTF STEPI 4 ADOP THEN FALSE ELSE ELBATCI)].ADDRESS 
ws SUB; 
IF ELCLASS # ADOP THEN STEPIT3s 
IF ELCLASS 2 NONLITNO AND ELCLASS $ STRNGCON 
THEN BEGIN K © Ke13 SIMPLE © TRUES 
ELBATCIJ] © O&COMMENTV(224127)8K(16837811)3 
INFOCOsK) © A © C3 B & TRUE END 
ELSE BEGIN 
B ¢ FALSES A © ELBATCI)3 
SIMPLE @ REALIO $ ELCLASS AND ELCLASS § INTID END} 
STEPIT END SIMPLE} 


COMMENT TEST EMITS THE STEP*UNTIL ELEMENT TEST? 


PROCEOURE TEST 
PRT(627) # TEST 
BEGIN 
IF NOT CONSTANB THEN 
BEGIN EMI TO(SUB)4 IF SIMPLEB THEN EMITV(8,A0DRESS) 
ELSE BEGIN 
EMITL C24. "BRET )3 
EMITBCBBWsBUMPL»B)3 
END} 
EMITOCMUL)S EMITCO) ENDS 
EMITOCIF SIGNB THEN GEQ ELSE LEQ)S EMIT (023 Leolad 
ENO TESTS 


BOOLEAN PROCEDURE SIMPICALLDS VALUE ALLS REAL ALL} 
PRT(630) = SIMP] 
BEGIN 
CHECKERCVRET@ALL )3 


08014000 
08015000 
08016000 
08017000 
08018000 
08019000 
08020000 


06021000 


08022000 
08023000 
08024000 
08025000 
08026000 
08027000 


08028000 
08029000 
08030000 
08031000 
06032000 
086633000 
08934000 
08035000 
08036000 
08037000 
08636000 
08939000 


08040000 
086041000 


06042000 
08043000 
08044000 
08045000 
08046000 
08047000 
08046000 
08049000 
08050000 
06051000 


08032000 


08053000 
08054000 


4A aa 


SS ee ee ee ee ee | 


44 


2 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0003 
0003 
0003 
0003 
0003 
0003 


0003 
0003 
0006 
0008 
0010 
0011 
0014 
0017 
O021 
0022 
0024 
0026 


0029 
0029 


0029 
Q029 
0030 
0032 
0034 
0036 
0038 
0038 
0039 
0049 


0044 


0044 
0044 


ADDRES ©¢ ALL ,ADDRESSS 
FORMALV © ALL.C982) 3 23 
IF T © ALLeCLASS > INTARRAYIOD OR T < BUOTQ OR 
GT1 ¢ (T*BOOID) MOD 4 « 1 THEN 
BRRCREALCT 4 0) x 51 * 100)3 
INT © GT1 * 23 
SIMPT © T S INTIO END SIMPI3 


COMMENT STORE EMITS THE CODE FOR THE STORE INTO THE FUR INDEX3 
PROCEDURE STORECS)4 VALUE S3 BOOLEAN S} 
PRT(631) = STORE 
BEGIN 
IF FORMALV THEN BEGIN EMITOCXCH)S S © FALSE END 
ELSE BEGIN 
EMITLCADDRES D4 
IF ADDRES > 1023 THEN EMITOCPRTE) ENDS 
T © (REALCS) 442x163 
EMITOCCIF INT THEN T#512 ELSE 4xT)44) END STORES 


COMMENT CALL EFFECTS A CALL ON THE INDEX} 
PROCEDURE CALL(S)3 VALUE $s BOQLEAN $3 
PRT(632) = CALL 
BEGIN 
IF SIMPLEV 
THEN IF §$ THEN EMITVCADDRES) ELSE EMITNCADORES) 
ELSE BEGIN 
EMITLC2eL*VRET D3 
EMITBCBBWeBUMPL oe V)3 
IF S THEN EMITOCLO0) END END CALLS 


PROCEDURE FORLISTCNUMLEIS VALUE NUMLES BOOLEAN NUMLES 
PRT(633) # FORLIST 
BEGIN 
PROCEDYRE FIXCSTORE sBACKsFORWARTs START )3 


PRT(634) #® FIX 
VALUE STOREsBACKs FORWARTs STARTS 
REAL STORE*sBACKsFORWARTs START 
BEGIN 
EMI TBC(GETCFORWART@1)eFORWARTsSTART)3 
IF RETURNSTORE # Q 
THEN BEGIN 
& * STORES EMITNUM(CB@BACK)E 
EMITPAIRCRETURNSTORE*STD) END END FIX3 


INTEGER BACKFIXs FORWARDBRANCHs FOOT» STOREFIX3 


START OF SEGMENT 


08955000 7F 0046 
08056000 Y 0047 
08057000 fT O049 
08058000 tT 0052 
08059000 T 0054 
08060000 Y 0057 
08061000 tT 0058 
08062000 T 0062 
08063000 T 0062 
08064000 T 0062 
08065000 T 0062 
08066000 T 0065 
08067000 fT 0065 
08@68000 T 0066 
08069000 T QOU66 
08070000 T 9070 
08071000 T QO074 
08072000 T OQ074 
08073000 T Q074 
08074000 T OQ074 
08675000 Tt 0075 
08076000 rt 0078 
08077000 T 90079 
08e78000 tT 0080 
08079000 T 0083 
08080000 T 0084 
08881000 fT 0084 
08082000 T O084 
weeteeeatan 
08083000 T 0000 
08084000 7 0000 
08085000 T 0000 
08086000 Tt 0000 
08087000 7 9002 
08088000 tT 0002 
08089000 T 0003 
08090000 T Q005 
086091000 fT 0006 


STACK(F +2) 
STACK(F 43) 
STACK(F 44) 
STACK(F 49) 


BACKFIX 
FORWARD 
FOOT 

STOREFTI 


BRANCH 


xX 


COMMENT 


COMMENT 
COMMENT 
COMMENT 


COMMENT 


COMMENT 


COMMENT 


COMMENT 


COMMENT 


LABEL BRNCHSEXITS 
STOREFIX © L323 Q@ © REAL CMODE=0)433 
FOR K © 1 STEP 4 UNTIL @ DO EMITOCNOP); 
IF NUMLE 
THEN BEGIN 
BACKFIX © L3 
IF FORMALV THEN CALLCDESC) END 
ELSE BACKFIX © V + REALCSIMPLEV) 913 


AEXPS 
PICK UP FIRST ARITHMETIC EXPRESSIONS 
IF ELCLASS @ STEPV 
THEN BEGIN 
HERE WE HAVE A STEP ELEMENTS 
BACKFIX ¢ BUMPLS 
LEAVE ROOM FOR FORWARD JUMPS 
IF FORMALV THEN CALLCOESC)4 CALL(OPUG)S 
FETCH INDEX 
IF I > 70 THEN BEGIN NXTELBT © 15 1 © 0 END 
ELSE REGO ¢ J3 
IF SIMPLEB © SIMPLECCONSTANB»BsSIGNS) AND 
CELCLASS = UNTILV OR ELCLASS = WHILEV) 
THEN BEGIN 
WE HAVE A SIMPLE STEP FUNCTIONS 
PLUG(CCONSTANB 9B) 
END ELSE BEGIN 
THE STEP FUNCTION 4S NOT SIMPLES 
SUBROUTINES | 
I IF I < 4 THEN O ELSE REGUS STEPITS 
SIGNB * CUNSTANB © FALSES 
EMIT(O)S Be LS 
AEXP3 EMITOCXCH)3 
BRET + U3 
EMITOCBFW) ENDS 
EMITOCREAL(SIGNB)x324A0D)3 
EMITBC BFW» BACKFIXeL)3 
IF ELCLASS 3 UNTJLV 
THEN BEGIN COMMENT 


WE CONSTRUCT A 


STEP@UNTIL ELEMENTS 


STORECTRUE)S IF FORMALV THEN CALLCOPOC)3 


STEPITS AEXP3 TEST END 
ELSE BEGIN COMMENT STEP*WHILE ELEMENTS 
IF ELCLASS # WHILEV THEN 
BEGIN ERRC153)s GO TO EXIT ENDS 
STEPITS STORECFALSE)3 BEXP END END 
ELSE BEGIN 
WE DO NOT HAVE A STEP ELEMENTS 
STORECFALSE)3 
IF ELCLASS # WHILEV 
THEN BEGIN 
WE HAVE A WHILE ELEMENTS 
STEPITS BEXP END 
ELSE BEGIN 
ONE EXPRESSION ELEMENTS 


08092000 
08093000 
08094000 
08995000 
08096000 
08897000 
08698000 
08099000 
08100000 
08101000 
08102000 
08103000 
08104000 
08105000 
08106000 
08107000 
08108000 
08109000 
08110000 
09111000 
06112000 
08113000 
08114000 
08115000 
08116000 
08117000 
08118000 
086119000 
08120000 
08121000 
08122000 
08123000 
08124000 
08125000 
08126000 
08127000 
08128000 
08129000 
08130000 
08131000 
08132000 
08133000 
08134000 
08135000 
08136000 
08137000 
08138000 
08139000 
08140000 
08141000 
08142000 
08143000 
08144000 


AANA AHHH HHH At tt tt tt ttt st ts) st a a te 


0006 
0006 
9009 
0014 
0014 
00148 
0015 
004? 
Oo19 
0019 
0019 
0019 
0020 
0024 
00g; 
0022 
0022 
Q025 
Q025 
0027 
0029 
0030 
0034 
0033 
0033 
0034 
0034 
0034 
0034 
0038 
0039 
0040 
0042 
0042 
0043 
0045 
0046 
0046 
O04? 
0050 
0084 
0052 
0052 
O0S4 
0056 
0056 
0056 
0057 
00587 
0058 
0088 
0059 
0060 


IF ELCLASS * COMMA THEN BEGIN 
EMITBCBFWsBUMPLeL#2)3 BACKFIX © L END 
ELSE BACKFIX ¢« L + 23 
L * L#i3 EMITCBFW)S GO TO BRNCH END ENDS 
THIS IS THE COMMON POINTS 
IF ELCLASS = COMMA THEN EMITLNGs L © Lois 
EMITCBFC)3 
FORWARDBRANCH © 3 
IF ELCLASS # COMMA 
THEN BEGIN 
STEPIT3 
FORLISTCTRUE)3 
FIXCSTOREFIXsBACKFIXsFORWAROBRANCHsSTMTSTART) END 
ELSE BEGIN 
IF ELCLASS # DOV 
THEN BEGIN ERR(154)3 REGOeLs GU EXIT ENDS 
STEPITS 
IF NUMLE THEN FOOT 8 GETSPACECFALSEs*1)23 % TEMP, 
STMT3 


COMMENT 


BRNCHI DIALA * DIALB ¢ 03 


IF NUMLE THEN BEGIN 

EMITVCRETURNSTORE ¢ FOQOT)S EMITOCBBW) END 
ELSE BEGIN 

EMITB(BBWsBUMPL*sBACKFIX)s RETURNSTORE © O ENDS 
STMTSTART « FORWARDBRANCHS B © 13 
CONSTANTCLEANS REGO ©« L3 
FIXCSTOREFIXsBACKFIX»FORWARDBRANCHsL) ENDS 


EXT! END FORLIST3 


REAL TiseT2sT30T43 
STACK(Fe2) = Tl 
STACK(Fe3) 3 T2 
STACK(F44) = T3 
STACK(F 45) s T4 
NXTELST © 13 [ © Q3 
STEPIT3 
IF SIMPICVRET*ELBATLI}) 
THEN BEGIN 
IF STEPI # ASSIGNOP THEN BEGIN ERR(152)3 GO EXIT ENDS 
Ti © LZ IF FORMALV THEN EMJTNCADDRES)3 
K « Q3 
IF SIMPLECCONSTANAsAsSIGNA) THEN 
IF ELCLASS & STEPV THEN 
IF SIMPLECCONSTANBsBsSIGNB) THEN 
IF ELCLASS 3 UNTILV THEN 
IF SIMPLECCONSTANC*Q@sSIGNC) THEN 
IF ELCLASS = DOV THEN 
BEGIN 
PLUGCCONSTANADA)3 
IF SIGNA THEN EmMIJTOCCHS)3 
RETURNSTURE ¢ BUMPL3 ADYUSTS CUNSTANTCLEANS 
STMTSTART © L3 
STEPIT3 
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06145000 
08146000 
08147000 
08148000 
08149000 
08150000 
08151000 
08152000 
08153000 
08154000 
08155000 
06156000 
08157000 
08158000 
08159000 
08160000 
08161000 
08162000 
08163000 
08164000 
08165000 
08166000 
08167000 
08168000 
08169000 
08170000 
08171000 
08172000 


100 LONG 


08173000 


08174000 
08175000 
08176000 
08177000 
08178000 
08179000 
08180000 
08161000 
08182000 
08183000 
08184000 
08185000 
08186000 
086187000 
08186000 
08189000 
08190000 
08191000 
08192000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Rg 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


AH to ts ot 


0060 
0064 
0065 
0066 
0069 
0069 
0072 
0073 
0075 
0075 
0076 
0076 
0077 
0079 
0079 
0079 
0082 
0083 
0085 
0086 
0086 
0087 
0089 
0089 
0092 
0094 
0095 
0096 

NEXT SEG 


0084 


0084 
0086 
0087 
0087 
0089 
0094 
0094 
0094 
0096 
0097 
0099 
0100 
0102 
0103 
0103 
0104 
0106 
0109 
0109 
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PRT(635) 3 


STACK(F +3) 
STACK(F 44) 
STACKCF 43) 


PRT(636) ® 


REED 


anu 


MOVE 


Atv 


EXITS 


BEGIN 


TL © OCC€C4096 x RETURNSTORE+STMTSTART ) x24 


REAL CGONSTANB) )x24 
REAL CCONSTANC) x24 
REALCSIGNB)) x2 
REALCSIGNC)3 

T2 © VRET3 

T3 ¢ B3 

T4 ¢ Q3 

STMT? 

STGNC © BOOLEANCT1 ¢€4701))3 

SIGNB © BOOLEANCT1¢(£46311)3 

CONSTANC © BOOLEANCT1I,C4534 

CONSTANB © BOOLEANCT1,(C4431 

STMTSTART © T1,(328i2]3 

RETURNSTORE © Ti,(20812)3 

VRET « T23 

B¢« T33 

Q « T43 

SIMPLEVe SIMPICVRET)3 


123 
3 


IF FORMALV THEN EMITNCADDRES)S EMITVC ADDRES )3 


PLUGCCONSTANBsB)3 


EMITOCIF SIGNS THEN SUB ELSE AD0D)3 


EMITBCBFWsRETURNSTORE?SL )3 
STORECTRVED3 

IF FORMALV THEN CALL COPDC)3 
PLUGCCONSTANC2Q)3 

IF SIGNC THEN EMITOCCHS)3 


SIMPLEB © TRUES TEST EMITLNGS 


EMITBCBBC*BUMPL»STMTSTART)3 
GO TO EXIT END3 
I ¢ 2) K @ QO} 
SIMPLEV © SIMPICVRET)3 
Ve Tl END 
ELSE BEGIN 


EMITCO)3 V © LS SIMPLEV © FALSES FURMALV © TRUES 
VARTABLECFRIS EMITOCKXCH)S VRET © 3 
TF ELCLASS#ZASSIGNOP THEN BEGIN ERR(152)4 GO EXIT ENDS 


ENDS 
STEPITI FORLISTCFALSE)S L © REGO? 
K « Q END FORSTMT3 


REAL PROCEOURE REEDS 


LABEL EOFS INTEGER IeJeKk3 


STREAM PROCEDURE MOVE(NeFeT)4 VALUE Ne T3 


BEGIN SI%#Fs OLS5TS DSIRN WOS END MOVES 


EMITUCBFW)3 


6§ 1S 


98193000 
08194000 
08195000 
08196000 
08197000 
08198000 
08199000 
06200000 
06201000 
08202000 
08203000 
08204000 
08205000 
08206000 
08207000 
08208000 
08209000 
08210000 
08211000 
08212000 
98213000 
08214000 
08215000 
08216000 
08217000 
08218000 
08219000 
08220000 
08221000 
08222000 
08223000 
08224000 
08225000 
08226000 
08227000 
08228000 
08229000 
08230000 
08231000 
082832000 


165 LONG 


08999000 


08999025 
08999050 


START OF SEGMENT 


08999075 


08999100 


T 
T 
T 
T 
T 
T 
Tt 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
s 


T 


T 
T 


0410 
0112 
0113 
O1tG 
0115 
0116 
0116 
O11? 
0118 
0118 
0120 
O42i 
0122 
0123 
0125 
0126 
0127 
0127 
0128 
0129 
0132 
0133 
0135 
0136 
0137 
0138 
0139 
O14) 
0143 
0145 
0147 
0448 
0149 
0150 
0194 
0154 
0157 
0159 
0459 
0164 

NEXT SEG 


0468 


0468 
0468 


Ween tas 


T 
T 


0000 


0000 


3 
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wizel; 
READCCODISK{INOI CEO]; 
PRT(637) = EOF 
REED Sel esFETCHCMKABSCCODISK(1)))3 
KtsMKABS(CODECO) de]; 
WHILE J#J?30 DO 
BEGIN 
MOVEC30sCODISK(O) eK) KiBK4+303 Y8eU4303 
READCCODISK)3 
ENDS 
MOVE CT# ys CODISK(O)»K)3 
READCCODISK)CEOF )3 
EOF: 
END REED3 


PROCEDURE RIGHT(L)4 VALUE Ls INTEGER 13 


BEGIN 
INTEGER Todi 


STACK(CF42) = J 
STACK(F 43) = J 
Tsa¢lL¢7) DIV 43 
MOVE CLs Te CODISK(0))3 
MOVEC29»CODE(O )» CODISK(1))3 
WRITECCOBISK)3 
J19293 
WHILE I=J>0 00 
BEGIN 
MOVEC 30s CODE CY)» CODISK(O))3 
WRITECCODISK)3 
JtaJ+303 
END3 
END RIGHT 


COMMENT THE PROGRAM ROUTINE DOES THE INITIALIZATION AND THE WRAPUP 
FOR THE REST OF THE COMPILER. THE MAIN PROGRAM OF THE COMPILER 
TS SIMPLY A CALL ON THE PROGRAM ROUTINES 


PROCEDURE PROGRAMS 
PRT(640) ™ PROGRAM 
BEGIN 
STREAM PROCEDURE MDESCCWDeTOLOC IS VALUE WD 


PRT(641) = MDESC 


BEGIN DI*LOC WOs OS* SETSST*© LOC WOs DI*TOLOCsDSeWDS ENDS 
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08999425 
08999150 


OB999175 
08999200 
08999225 
08999250 
08999275 
08999300 
08999325 
08999350 
0a9g9g7s 
08999400 
08999425 


47 LONG 


08999450 


08999475 
08999500 


START OF SEGMENT 


68 IS 


08999525 
08999550 
08999575 
08999600 
08999625 
08999650 
08999675 
08999700 
08999725 
08999750 
08999775 
08999800 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
Fd 


T 


T 
T 


O00, 
0003 


0008 
0014 
0019 
0020 
0020 
0027 
0034 
0034 
0036 
0044 
0042 
NEXT SEG 


0468 


0468 
0468 


RekKKKERH SY 


Se ee ee ee 


B85 LONG, 


09000000 


09001000 
09002000 
09003000 


09004000 
09005000 


START OF SEGMENT 


09006000 


a 


T 


0000 
0004 
0005 
0012 
0916 
0017 
QU1L9 
0019 
0026 
0030 
0031 
0032 
NEXT SEG 


0468 
0468 
0468 
0468 


0468 
0468 


wet thntin 


0000 


3 


68 


3 


69 


DEFINE STARTINTRSC#42683 
LABEL LY 
LISTOGHSLISTERS sBQOLEANCLeERRORCOUNT. C4694) )3 


OCT1742165830517 247. 


octy73 623476643 20, 


COMMENT LISTOG IS NOT SET BY DEFAULT ON TIMESHARINGS 
NOHEADING %# TRUE; 
ERRORCOUNT 8 03 
ERRMAX#s9993 % MAY BE CHANGED IN DOLLARCARD, 
BASENUM$3100003 ADUVALUES#10003 NEWBASE!=TRUES 

COMMENT DEFAULT VALVES FOR "$SEQ" OPTION; 
LASTUSED %@ 43 & FOR INITIALIZATION, 
NEXTINFO © LASTINFO © LASTSEQROWX2564+LASTSEQUENCE S13 
PUTNBUMP(O)3 
GTi *# =" 5 
MOESC(GTIsINFOLCLASTSEQROWSLASTSEQUENCEJ)3 
BLANKETCOsINFOCLASTSEQROW,/LASTSEQUENCEJ 24 % FOR "S CHECK", 
READAGARDS & INITIALIZATION OF NCReFCRs AND LGR» AND 

% READS FIRST CARD INTO CARD BUFFER, 

LASTUSED 8 23 % ASSUMES CARD ONLY UNTIQ TOLO DIFFERENTLY. 
NXTELBT © 13 
PRI J@PRTIMAX@¢PRTBASES 
MRCLEAN © TRUE3 

COMMENT START FILLING TABLES NEEDED TO COMPILE & PROGRaM; 
FILL TENC*). WITH 

0071771110463422054, 00T1764332600326467,  0¢6117516213404 14205, 


OTE ERO bare clit 


O0T17142660466416735, 0C0T1795343457542525, 0061167663437 3473252, 
0071651040347244213, 06716442504641114455, 0671634922554333770, 
0071622047 303622767, 0671612461164567564, 0CT1603175421725521, 
00715740347 26313046, 0073565046411 3775657, 00671556255136775233» 
OCT1547730366574502, OCT152117 1646433362, OCT251 4030220142297 » 
0CT1501736264172732s 0C671472325744231521» 0671463013331500045, 
00671453646220020057, OCTI44456 166402007 2, 06714357 16241031111> 
0071427301711237333, 00714011162273507 22> 00T1371341675243107. 
006721361632254513731, 00743522007 276367 47, 06T1342641415606502, 
0071333411341150223,5 00671324313634402270, OCT131537O5777027465 
0011306676337663537,» 0CT12601045602764047, 0CT3253257143561064, 
0071241532774515¢@75, 007123206357 3640554, OCT122249761326040706, 
007121321556 435307 4, 0071204606 4445645707, 06T3175975344237270, 
0CT1166314631463146, 06T1141000000000000, OcT1431200000000000, 
0€71121440000000000» 0¢671111750000000000» 00673102342000000000. 
0C6T1073032400000000, 00T1063641100000000, 0¢67T1054611320000000, 
0€671045753604000000, 0671037346545000000, 0672031124027620000, 
067000135 4035564000, 0¢670911643245421000, 06T0022214116345200, 
00T0032657 442036440, 007004343277 2446150, 0610054341571157602, 
0670065432127413543, 0610076740555 316473, 061041105307 1060221, 
007T0421265707274266, 00T0133543274153343~ 0019142074447 406234, 
0079 452543201307703, 0070 16323604457 1663, 0C679474305452130240, 
00T0205126764556310, 00702163545643711772, 06T9231004774627437» 
0670241206170175347, 00702544476 26234644,5 007026176157370401145 
0CT027 2356132663013, 0670303051564442216, 06T0343664435752661>» 
0670324641444345435, 0CT033604437 4636745, 001934744 3670206536, 
00T0361131664625027>5 OcT03733602447722345 OCTO40 4654312370703» 
OCT04142227 375067064, OCTO0422675274304704,5 007043345455 3366062, 
0CT0444367706 263076» 0CT04559465667740415¢ 00T0467003245730521» 
06T050 1060431731665, 0CT0514274514320242» 0CT052155363740431 25 
0670532106607305375;5 0CT0542530354166674, 007053325644 3424453» 


09024000 
09025000 
09028000 
09028010 
09028050 
09028900 
09028910 
09028920 
09028930 
09029000 
09033000 
09034000 
09034300 
09034200 
09934500 
09035000 
090936000 
09037000 
090938000 
09039000 
09040000 
09040100 
09041000 
09042000 


START OF SEGMENT 


09043000 
09044000 
09045000 
09046000 
09947000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
07054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09966000 
09967000 
09068000 
09069000 
09970000 
09071000 
09072000 
09073000 
09074000 


a a st ts se ts ts ttt tt os a tt ts tt a a a a to 


0004 
0004 
0001 
0005 
0005 
0006 
0006 
0007 
0009 
0009 
0010 
0013 
0014 
0015 
0017 
0019 
0019 
0019 
0020 
00a) 
0022 
0023 
0023 
0023 

eewekeeee 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 | 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 


70 


COMMENT 


006705644324543315665 
0079621012044361420, 
067T0651773450267005, 
OCT#70370727 264534), 
0CT0737461304707400,» 
00707736654350430723 


06T0575160607420123» 
0CT0631214417455344, 
06T0662372362344606, 
0CT0714671154416632. 
0CT075413755660707 2 


0079606414781 324150, 
0010641457523370635, 
0CT067 3071057035747, 
OCTU7 26047403722400, 
00T0761367512350710s 


THIS 1S THE FILL FOR THE SECOND ROW OF INFOS 


THE FIRST ITEMS ARE STREAM RESERVED WORDS,» 
THEN ORDINARY RESERVED WORDS» 


THEN 


INTRINSIC FUNCTIONS) 


FILL INFOCLe*) WITH 


OCT0670000600000002» 


0670700001040000002, 
0CT0710004460000002 
0670720001630000002, 
06707300005 30000002» 
0€T0740000150000002- 
0¢70750004620000002, 
0670760000740000002s 
0¢70770000$00000002» 
OCT 1040000730000002, 
OCT 1020001160000002, 
067 4030004470000002, 
OCT 1040004430000002, 
0€T1050000340000002» 
0¢T 1060001036400002. 
0671060001066500002, 
0¢T1060004020500002, 
06T1060004357700002, 
OCT 1060001057300002, 
OCT 1060003647200002, 
OCT 1060000727600002, 
0CT1060000417500002, 
06T4060000766700002» 
0671060000176600002» 
0674004000260000003, 
0670130311060000002, 
OCT 1360441030000002, 
0670500000470000002, 
0670660000000000002, 
0670500000040000003, 
0071070000000000003, 
0670500000230000003» 
067 1410446000000002, 
06T0550000000000002. 
0670520000000000003» 
0€70570000000000002, 
0670600000000000002» 
OCT 1340442030000002, 
0CT0410000000000002, 
0670130310030000002, 
0¢679530000000000002» 
06T1100000000000003» 
0670640000000000002, 
0CT0130346060320002, 


"281000", 


W20TO00"s 
"2CTOO0"s 
"STALLY"» 
"205000". 
"ASKIPO">» 
MAJUMPO. 
"20B000"» 
“2SB000", 
"2SCO00"» 
"3L0CO0",» 


"20C000"s» 


"SLOCAL"» 
"3LITOO"s 
"3SETOO", 
"SRESET"» 
"3wOS00"s 


P3ICHROO"s 


"3ADD00", 
M3ISUB00ON%, 
"3Z0NO0"> 
“JNUMOO">s 
"3QCTOO"»s 
"30ECOO">» 
"6TOGGL"s 
"ZABSOO", 


"ZAND00"> 


"SARRAY" >» 
"SBEGIN". 
"7BOOLE"» 
"7COMME"» 
“6DEFIN"» 
"301V00", 
"200000", 
"6DOUBL"» 


"BELSEO™, 


"3ENDOO">» 
"JEQVO0", 
"SFALSE"> 
"GFLAGO"s 
"3FOROO">s 
"7FORWA"»s 
"2GQ000"s 
SAHUNTO",» 


"EQ0Q0000", 


"ANOOOO00", 
"NTOOQOOON» 
"EQ0000000"» 


"EQ0QQ000"» 


"RO 


W, 


4256 


#258 
%260 
4262 
%264 
%266 
%268 
%270 
272 
%274 
2276 
4278 
%280 
%282 
%284 
4286 
4288 
%290 
%292 
%294 
%296 
%298 
%300 
%302 
%304 
%307 
%309 
4311 
%313 
#315 
%318 
%321 
2324 
2326 
%328 
2331 
%333 
%335 
%337 
%339 
341 
%343 
2346 
£348 


09075000 
09076000 
09077000 
09078000 
09079000 
09080000 
115 LONG 
09881000 
09882000 
09083000 
09084000 


70 1S 


09885000 
09086000 


START OF SEGMENT 


09087000 
09088000 
09089000 
09090000 
09091000 
09092000 
09093000 
09094000 
09095000 
09096000 
09097000 
09898000 
09099000 
09100000 
09101000 
09102000 
09103000 
09104000 
091405000 
093406000 
09107000 
09108000 
09109000 
09130000 
09110001 
091132000 
09112100 
09112200 
09112300 
09142400 
09112500 
09112600 
09142700 
09112800 
09412900 
09113000 
09113300 
09113200 
09113300 
09113400 
09113500 
09113600 
09113700 


at a as tt st tt Ht 


0024 
0024 
0024 
0024 
0024 
0024 
NEXT SEG 
0024 
0024 
0024 
0024 
0024 
0025 


eeaehakes 


0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
0026 
00¢6 
0026 
0026 
0026 
0026 


69 


71 


OCT0630000000000002» “2IFO00"» %350 09113800 T 0026 
OCTO500000040000002» "4REALO"» 4352 09113900 tT 0026 
OCT0500000050000003» "7FINTEG"s "“EROQOOOO"s %354 09114000 T 0026 
OCTO500000070000002» *SLABEL"» 4357 09114400 T 0026 
OCT0360002000020003»5 "GMEMOR", "Y "» %359 09114200 T 0026 
O06714104560900000002» "3mM0QD00".» 4362 09114300 T Q026 
0C70500000440000003s "7MONIT"» “OR Wy %364 09114400 T 0026 
0070130301060000002» "*4naBSO"s %367 09114500 YT 0026 
GCTOS00000200000002» MUNAMEO"s %369 09114600 T 0026 
OCT01303040300000025 “SNFLAG"» %371 09134700 T 0026 
0671320300230000002, "3NOQTOO", 4373 09114800 Tt 0026 
0C74350440430000002» "20R000", %375 09114900 T 0026 
OCT0500000020000002s5 "ASAVEO", 4377 09145000 T 0026 
0€70500000010000002+ *3QWNOO", 3379 09115100 T 0026 
0CT0460000000000003» "6POLIS"» "Hh ", 2381 09115200 T 0026 
0€T0500000460000003, “9PROCE"s "DURE ", %384 09115300 fT 0026 
0€T0130300000460011% "4SIGNO"s 4387 091145400 7 0026 

ocT20e5, COMMENT OUP ; 09115900 7 Q026 

OCTOQO0Q0s COMMENT ITC Q3 09115600 T 0026 

OCTOMaSs COMMENT NEQ@ 3 09115700 fT 0026 

OcT1025,» COMMENT XCH 3 09415800 T 0026 

O¢TOLSS» COMMENT DJA 343 091415900 7 0026 

OCTOL61>» COMMENT OJB 33 09116000 T 0026 

ocT0165, COMMENT TRB 43 09116100 T 0026 
OCT1110000000000002» "4STEPO", %396 09116200 fT 0026 
0CT0500000220000003» “6STREA"» "M "» 4398 09116300 T 0026 
OCT050000014{0000003» "#SUBRO"s "UTINE "y ¥401 09116400 T 0026 
QCT0500000150000003» "6SwITC™s "h "5 4404 09116500 T 0026 
OCT1120000000000002» “4THENO”» %407 09116600 y 0026 
0674130000000000002» *2T0000", 2409 09116700 T 0026 
OCT0410000010000002» "4TRUEO"» B41 09116800 T 0026 
0€T0560000000000002» "SUNTIL"™» 2413 09116900 T 0026 
OCT1140000000000002» "SvALUE"» 4415 09117000 T 0026 
OCTOS40000000000002» *SwHILE”s %417 09117400 T 0026 
OCT413104402000000025 "3aDp00"s 4449 09117200 T 0026 
0074310240270000002» "3BRTO0", *421 09117300 T 0026 
0C6713190453050000002» "3CCKX00",» %423 09117400 T 0026 
0071310442500000002, "3¢DC00%, 4425 091147500 Tt 0026 
OCT1310457050000002» *"3CFX00", %427 09117600 T 0026 
06714310302060000002s "3CHSOO"»s *429 09147700 T 0026 
0671310440500000002, "3cOc00", z431 09117800 T 0026 
0671310242020000002» *3COM00", 4433 09117900 T 0026 
0C71310302060000002» "3cSp00", %435 09118000 T 0026 
06714310240120000002s "3DELO0", 4437 09418100 T 0026 
0C71260100550000002s "307 A00", %439 09118200 7 O026 
0074260100640000002»5 "301B00"s R444 09118300 T 0026 
O6T1319034405900000005 "3DUPOO", 4443 09118400 T 0026 
00743104510500000025 "“3EQL00"» %445 09318500 T 0026 
00T4310443050000002» "3FCX00", 2447 09118600 T 0026 
OCT{3ILO447O50000002+ "3FFKOO"» %449 09118700 7 0026 
Q6743104460250000002» "3gEQ00", *454 09118800 YT 0026 
0674310680450000002-, "3GTROO", 4453 09118900 T QU26 
067143101044200000025 "3HL B00", 8455 09119000 T 0026 
0074310194420000002, "3HP200", 2457 09119050 7 0026 
0CT1310446000000002» "31pV00",» 2459 09119100 T 0026 
0674310251020000002» "311000"s R461 09119200 T 0026 
0671310250220000002s "3INA00"» 2463 09119300 y 0026 


0671310250420000002» "3INB00">» %465 09119400 T O26 
0671310100420000002» "3INIO0"» 4467 09119500 T 0026 
0CT4400440300000002» "3INX00", %469 094119600 T 0026 
0CT31310264220000002s "3]{0RO00"» R471 09119700 T 0026 
0671310250220000002s6 "3]P{00", £473 09119800 T 0026 
OCT43102504200000025 "3; P200", %475 09139900 T O0U26 
0674310145060000002, "3, PS00", RA77 09120000 fT 0026 
0671310410240000002» “3]SD00">» Z479 09120100 T 0026 
0C6T4310450840000002» "37SNO0", R484 09120200 T 0026 
0CT13190100420000002s "31T100">» 4483 09420300 rt 0026 
06T1310450250000002+ "3LEQ00", %485 09120400 T 0026 
0C7T1310505300000002» "3LLLOO", 2487 09120500 fT 0026 
0671310441030000002» "3,.ND00", R489 09120600 T 0026 
0C0T4310300230000002+ "3LNGOO"» R494 09420700 T 0026 
0674310304040000002- "3L 0000", %493 09420800 T 0026 
067T1319840430000002» "3. OR00", 2495 09420900 T 0026 
0€671310442030000002» "“"3LQVOO0O"» Z497 09121000 T 0026 
0671310450450000002 "3LSS00", z499 09121100 T 0026 
06T1310191100000002» "3mKSO0",» 2501 09121200 y 0026 
0674310441000000002s "3MULO0",» 4503 09121300 T 0026 
OCT1310441050000002+ "3NEQ00%» 3505 09121400 T 0026 
0€71310100330000002, “"3NOPO0", 4507 09121500 T 0026 
0CT0650006550000003% "6SCOPO"s "Nevseveets *509 09121600 T 0026 
74 18 256 LONGs NEXT SEG 69 
FILL INFOC2e*] WITH 09121650 T 0026 
06T1310300000020004, “3ROFOO"S 4512 091421700 T 0027 
START OF SEGMENT seuttineae 72 

OCTOO00s COMMENT LITC 03 09121800 Tt 0028 

OCT2144> COMMENT FXS 3 09421900 7r 0028 
0€671310300000020004, "3RDS00", %546 091322000 T 0028 
OCTOOO4, COMMENT LITC 13 09122100 T 0028 

OcT2141>» COMMENT FXS ; 09122200 T 0028 
0CT1310456000000002» "3RDVOO", %520 09122300 T 0028 
06714310304030000002, "3RFB00", 3522 09122400 7t 0028 
OCT1310240470000002, "3RNQOO", 2524 091322500 7 0028 
0€71310145060000002, *"3RRROO", %526 094322600 T 0028 
0671310311060000002, "3RSA00", %528 09122700 7 0028 
0CT1310242470000002» "3RSP00", %530 09122800 T 0028 
0674310144020000002, "3RTMOO", 2532 091422900 T 0028 
0674310240470000002» "3RTNOO", %534 09323000 7 O28 
0CT4310141020000002» "3RTROO", %536 09123100 T 0028 
0CT1310242470000002 "3RTSO0", %538 09123200 T 0028 
QCT1310310030000002» "3SFB00"s %540 09123300 T 0028 
0671310442040000002- “3SND00"s %542 09123400 T 0028 
0071310304060000002, "3SSB00", 3544 091423500 fT 0028 
00T1310316060000002, "3gsF00", $546 09423600 rt 0028 
0¢71310304060000002, "3S5SNO0%, %548 09123700 T O28 
0674319311060000002, "3SSP00", %550 09123800 T 0028 
0674310401040000002, "35TD00", 2552 09123900 T 0028 
06T4310240000020004» "3STFOO"S 2554 09124000 T 0028 
OCTO010» COMMENT LITC 23 09124100 7 0028 

OcT2141» COMMENT FXS 3 09124200 T 0028 
OCT43104420600000025 "3STNOO", %558 09124300 y 0028 
0CT14310240000020004» "35TSO0", %560 0914324400 fT 0028 
OCTO014, COMMENT LITC 33 09124500 T 0028 

OCcT2144>» COMMENT FXS ; 09124600 T 0028 
0CT1310440600000002» *35UB00", 3564 09124700 T 0028 


0671 310344060000002, 
0671270440650000002, 
0671310155060000002, 
006713190344060000002, 
0CT1270440650000002> 
0CT4300300000000002 
0071310502050000002, 
0071310101070000002, 
0€71310105020000002, 
0€674310105020000002, 
OCT 1270500750000002» 
0¢742705007§0000002, 
00671270500740000002>, 
00742705007 40000002» 
067T4310440210000002, 
06T4310440210000002» 
0¢671310440630000002, 
06T1310440640000002» 
0671310441030000002, 
0CT1310461010000002, 
0¢6714310442010000002, 
0C674310442010000002, 
OCT0460000000000002» 
0¢0T0360002000020002» 
0CT1310240000020004, 
OcTO1i1» 
OCTOO5Ss 
06T06500066430000003, 
06T0030000000040003>» 
0CT0030000000040003» 
60T0030000000040003,» 
0070030000000040003, 
0CT0030000000040003. 
0¢670030000000040003-. 
0670030000000040003- 
0¢670030000000040003» 
0C6T0030000000040003, 
0¢67,310117530000002, 
0€674310117540000002»s 
0cT13140357730000000, 


"“3TF BOO", 


W3TFROO™S 
"3T1I000"%.s 


"3TOPOO", 


"3TRBOO"» 


"3VFIOO"s 


"3XCHOO"» 


"3xXITOO"s 
"3ZIPO0"» 
"3ZP100"» 
"3CFEOQO"s 
"3FCEOQO"s 
"3CFLOO">» 
"3FCLOO, 
"Z30LA00">» 
"Z3ADLO0">» 
*3DL S00", 
"3SDL00", 
“3DLMOO">, 
"3MDLOO0"> 
"30L000", 
"300L00", 
"1P0000"%, 
7MO000", 
"3PRLOO"%, 
COMMENT 

COMMENT 

"7SCOPO">» 
"2LB000">» 
"2RBOO00"s 
"3GTROO"s 
"3GEQ00"s 
"ZJEQLOO"s 
*3NEQOO">» 
"3LEQ00", 
*ILSSO0",s 
"STIMES™s 
W3SCIOO",» 
"3SANOO"s 
W3S9SCS00",s 


PRL3 
NOP} 


"FE ogneeente 


"C# 
"V2 
Nore 
woe 
Wax 
“ne 
"<8 
on 
wx F 


%566 
%568 
%570 
%572 
“574 
%576 
%578 
%580 
%582 
4584 
%586 
%588 
%590 
4592 
4594 
%596 
%598 
%600 
%602 
4604 
%606 
%608 
%640 
*612 
8644 


%618 
*621 
4624 
4627 
%630 
4633 
%636 
%639 
%642 
%645 
2648 
%650 
46532 


09124800 
09124900 
09125000 
09125050 
09125300 
09125200 
09125300 
09125400 
09125500 
09125600 
09125700 
09125800 
09425900 
09126000 
09126100 
09426200 
09126300 
09126400 
09126500 
09426600 
091426700 
09126800 
09126900 
09127000 
091327400 
09427200 
09127300 
09427400 
09127500 
09127600 
09127700 
09127800 
09127900 
09128000 
09128100 
09128200 
09128300 
09128400 
09128500 
09128600 
09128700 
09128800 
09128900 
09129000 
09129100 
09129200 
09429300 
09129400 
09129500 
09129600 
09129700 
09129800 
09129900 
09130000 
09130100 
09130200 
09130300 


HAHAH HHH HAH A a A A A A A A A A A A A Ht tt 


0028 
0028 
0028 
0026 
0028 
OU28 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0026 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
Q028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
Q028 
0028 
V028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
0028 
00286 


09130400 T Q028 
09130500 T 0028 
09130600 T 0028 
09130700 T 0028 
09130800 Tt 0028 
09130900 fT 0028 
09131000 T 0028 
09131100 T 0028 
09131200 T 0028 
09131300 T 0028 
09131400 T 0028 
09131500 T 0028 
09131600 T 0028 
09131700 T 0028 
09131800 fT 0028 
091431900 T OU28 
09132000 T 0028 
09132100 Y 0026 
09132200 T Ov28 
09132300 T 0028 
09132400 tT 0028 
09132500 T 0028 
09132600 T 0028 
09132700 T 0028 
09132800 T 0028 
09132900 Tt 0028 
09433000 Y 0028 
09133100 yr vas 
09133200 T 0028 
09433300 T 0028 
09133400 T 0028 
09133450 YT 0028 
09133500 T 0028 
09133600 T 0028 
03 % END OF INFO FILbe 09133700 T 0028 
72 1S 143 LONGs NEXT SEG 69 
FOR GT2¢256 STEP GT1,LINK WHILE NOT BOOLEANCGT2eFORMAL) 00 09133800 T 0028 
PUTCCGTL©TAKE(GT2) 28G6T2035835243)2G6T2)3 09133900 T 0U34 
FOR GTi#GT2 STEP GT2.LINK WHILE GT2ekhINKZO DU 09134000 tT v040 
PUTCCGT2¢TAKECGTL) JESTACKHEADLGT3+TAKECGT141).012336) 09134100 7 0045 
MOD $25)035835843)»+STACKHEAD(GT3]«GT1)3 09134200 T 0049 
COMMENT THIS IS THE FILL FOR THE SPECIAL CHARACTORS3 09197000 T 0053 
FILL SPECIALC*) WITH 09198000 T 0053 
0CT1200000000200000s COMMENT #3 0¢T0000000000100000» COMMENT @3 09199000 T 0053 
START OF SEGMENT wottwtnuns 73 
0¢T0000000000000000, 06T1160000000420000» COMMENT 23 09200000 T 0054 
0671370440450002763, COMMENT ?3 0¢6713790440250002662, CUMMENT 23 092014000 T 0054 
OCT1400440200000000, COMMENT +3 OcCTOOODOOODO000N0N0N, 09202000 fT 0054 
OCT1220000000060000» COMMENT 43 O0cT1210000000000000, COMMENT C3 09203000 T 0054 
OCT1250000000000000, COMMENT &3 OCTO450000000000000» COMMENT (C3 09204000 T 0054 
0¢6713704504500035745 COMMENT <3 0671330403040000000% COMMENT #3 09205000 7 0054 
00T14140441000000000, COMMENT x3 OcTOODD0OODDNDNDNDNN0NNNs 09206000 -T 0054 
OCTOO00Q000000040000»s COMMENT $3 OCTO47OVO0000000UV00s COMMENT #3 09207000 T 0054 
0CT1400440600000000, COMMENT &3 0CT12400000001460000» CUMMENT )3 09208000 r 0054 
0CT0620000000000000, COMMENT es} 0671370650250003470» COMMENT §3 09209000 T 0054 
0€6T0000000000000000, 06T1410442000000000% COMMENT /3 09210000 T 0054 
OcT1170000000000000, COMMENT 93 OcTOADIOONOONNON 20000, COMMENT &3 09241000 T 90054 


06713704410500025615 COMMENT #3 067T1370451050002460, 
0¢71230000000000000» COMMENT Jf O¢T0000000000440000, 
0203 
FILL MACROEC*) WITH 
OCTO131» COMMENT SFS A 00 
OCTO116» COMMENT SFD A 01 
OCTOQ00s COMMENT SYNTAX ERROROQ2 
OCTO140» COMMENT INC A 03 
OCTO130» COMMENT SRS A 04 
OCTOL17» COMMENT SRO A 05 
OcTO000s COMMENT SYNTAX ERROROG 
OcTOO00s COMMENT SYNTAX ERRORO7 
0CT00310143~» COMMENT CREF As SFS 008 
OCTOO{60143>» COMMENT CRF As SFO 009 
O¢T00470143» COMMENT CRF As JFW QO 
OCT004001 43> COMMENT CRF As INC O14 
OCTOO30014 3s COMMENT CRF As SRS 012 
O¢T00470143» COMMENT CRF A» SRD 013 
OCTO0COs COMMENT SYNTAX ERROR(GG 
OCT@000» COMMENT SYNTAX ERROR1S 
OcT0153.s COMMENT RSA A 16 
QCTO104>» COMMENT ROA A 17 
OCTO150¢e COMMENT RCA A 18 
OcT004201430042, COMMENT SEC Os CRF As SEC 0 19 
OCTOL22e COMMENT SES A 20 
OCT9106» COMMENT SED A 2k 
OCTOQ0Os COMMENT SYNTAX ERROR22 
OcTe000s COMMENT SYNTAX ERROR23 
OcTO0S6» COMMENT TSA O 24 
OCcTO000s COMMENT SYNTAX ERROR25 
OCT8000.» COMMENT SYNTAX ERROR26 
OcTOO00» COMMENT SYNTAX ERROR27 
OCTO000s COMMENT SYNTAX ERROR2S 
OCTOO007» COMMENT TOA O 29 
OCTO000s COMMENT SYNTAX ERRORIO 
OcTO000s COMMENT SYNTAX ERROR31 
OcTO%15» COMMENT SSA A 32 
OcTO114s COMMENT SDA A 33 
OcTO1S4s COMMENT SCA A 34 
OcTO144y3 COMMENT STC A 35 
FILL OPTIONSC*)] WITH *SCHECK "ss Os % Or1 
"6DEBUG"s 0» % 203 
"EDECKO"s Os % 495 
"6FORMA"s 0» % 6e7? 
“SINTRI"2 Qe % 829 
WSLISTA%S 0» K 10011 
"AL ISTO"202 % 12013 
WSLISTP sO» % 14615 
P3MGPOO0"s QO» & 16017 
MUTAPEO" 20, X 18019 
"GNESTO"%s Os % 20021 
WINEWOO" SOs % 22223 
"TNEWIN' 20> % 24225 


COMMENT 
COMMENT 


we 


Nee We Wwe we We We We we ee 


wee We we we ee Be We We We we We We We We We We We we We We We We Ys we We 


a3 
"3 


09212000 T 0054 
09213000 T O054 
09214000 T 0054 
73°18 32 LONGs NEXT SEG 
09215000 T 0054 
09216000 T 0058 
START OF SEGMENT wxeetertetne 
09217000 T 0056 
09218000 T Q0U56 
09219000 T 0056 
09220000 T 0056 
09221000 T 0056 
09222000 T 0056 
09223000 T 00%6 
09224000 T 0056 
09225000 tT 0056 
09226000 T 0056 
09227000 T 0056 
09228000 T 0056 
09229000 T 0056 
09230000 T 0056 
09231000 T 0056 
09232000 T 0056 
09233000 T 0U5S6 
09234000 T 0056 
09235000 tT 0056 
09236000 T 0056 
09437000 T 0056 
09238000 T 0056 
09239000 tT 0056 
09240000 Ty 0056 
09241000 T 0056 
09~42000 T 0086 
09243000 T 0056 
09244000 T 0056 
09245000 T 00%6 
09246000 T 0056 
09247000 T 0056 
09248000 T 0056 
09249000 T 0056 
09250000 T 00586 
09251000 T 0056 
74 15S 36 LONGs NEXT SEG 
09251208 T 0056 
START OF SEGMENT #ee¥wtatan 
o9251212 T 0058 
09251214 T 0058 
09251216 T 0058 
09251218 T 0056 
09251220 YT 0058 
09251224 T 0058 
09251228 tT 0058 
09a51230 T 0058 
09851232 T 0058 
09a51234 y 0058 
09251236 T 9058 
09251240 T 0058 


69 


74 


69 


75 


PRT(643) = 


PRT(644) © PEN 


"AQMITO" sO» 
"18000020; 
"3PRTOO"s0>, 
"SPUNCH"s QO» 
"SPURGE* 20>» 
"ASEGSO"s 0s 
W35EQ00%,0, 
"6SEQER" 20» 
"6SINGL "20. 
MSSTUFF™,0, 
"G4VOTDO"»O>s 
"SVUIDT* 20s 


DO UNTIL STEPI = BEGINV3 


"3 


INTOG © INTOG AND TRUES % 

DISKAOR ¢ IF INTOG THEN INTRINSICAOR ELSE 23 
MDESC(GTisINFOCLASTSEGROWsLASTSEQUENCEI DS 
MDESCCGTIs INFOCLASTSEQROWsLASTSEQUENCE"11)3 
MDESCCGTIsINFOLLASTSEQROWs LASTSEQUENCE%2J 3 


LOCKCSOTUFF 23 

CLOSECCARD*RELEASE)3 

IF LASTUSED # 1 THEN CLOSECTAPEsRELEASE)3 

IF NEWTOG THEN LOCK(NEWTAPEs*)3 

IF TeCCh+32DIV 4) + CORADR > 4060 THEN FLAG(040)3 

IF NOT NOHEADING THEN % PRINT THESE THINGS IF ANY 

® LISTING HAS BEEN QDONEs 
STREAM PROCEDURE PANCT*FIELsNER®LSQ)3 VALUE NER*T3 

PRT(642) = *SEGMENT DESCRIPTOR®* 


BEGIN 


BEGIN DI * FIELS 44¢pS*2kIT" "); 


SI ¢ 4503 DS © WOSS SI +FIEUs OS ¢ 3 WOS3 
DI ¢ FIELS OS* 28 LIT"NUMBER OF ERRORS DETECTED & " 
SI «¢ LOG NERS DS *« 3 DEC# OS © 22 LIT "e 
SI] ¢ Loc Ts OS © 4 DECs DS © 9 LIT ™ SECONDSe™s END; 


ST*LOC BASE; 


Be Te Be DE DE BE dE DE DE dR ae 20 


26227 
2629 
30031 
32233 
34535 
36937 
36239 
40241 
42243 
44945 
46547 
48949 


STREAM PROCEDURE PENCFILePRTISIZ»BASEsCORESDISK)3 


VALUE PRISIZs+BASE*sCOREs DISKS 
BEGIN OL+FILS OS © 9 LIT PRT SIZES™3 SJeLoc PRTSIZ3 
OS © 3 DECS DSe14 LIT" BASE ADDRESSa"; 

OS¢4 DEC DS*10 LIT” CORE REQ#"3 
Sl#.O0C CORES OSe4 DECS OS*1O LIT" DISK REQa"; 
SI*LOC DISKS OSeS DEC OSe64 LIT " "3 

PENS 


STREAM PROCEQURE FINALAXC(LINE*N*SEQ)3 VALUE NB 
PRT(645) 3 FINALAX 


COMPILATION TIME = "3 


73.18 


09251244 
09251248 
09851252 
094851256 
09851260 
09251264 
09251268 
092851272 
092851276 
09251278 
09251280 
09251284 
09251288 


31 LONG 


09252000 
09253000 
09253050 
09853100 
09253500 
09254000 
09255000 
09275000 
092681000 
09281500 
09282000 
09282500 
09282600 
09362000 
09363000 
09364000 


START OF SEGMENT 


09365000 
09366000 
09367000 
09368000 
09369000 


09370000 


09871000 
09372000 
09373000 
09374000 
09375000 
09376000 
09377000 


09378000 


a tt at ae a tt st 


0058 
0058 
0058 
0056 
0058 
0058 
0058 
0058 
0058 
0058 
0038 
0058 
0058 
NEXT SEG 
0058 
0060 
0064 
O064 
0067 
0069 
0072 
OU74 
0075 
0076 
0078 
0064 
0084 
0088 
0089 
0089 


EWAN RES 


a ee en | 


+ 


444444 


0000 
0004 
0002 
0006 
0009 


0012 


0012 
0012 
0014 
0016 
0018 
0020 
0028 


0029 


69 


76 


PRT(646) & 


PRT(C647) 3 
STACKCF +2) 
STACK(F 43) 
STACK(CF +4) 
STACK(F +5) 
STACK (F 46) 
STACKCF +7) 
STACK(F 410) 
STACK CF 411) 
STACKCFel2) 


STACKCF #13) 
STACKCF 414) 


PRT(650) 


STACK(F +3) 
STACK(F +4) 


BEGIN DI © LINES 15¢08 © SB LIT " *)3 


DI ¢« LINES OS © 31 LIT "NUMBER OF ACCIDENTAL ENTRIES = "3 
SI ¢ LOC NJ DS © 3 DECs DI © DI +83 
SI * SEQs SI © SI#163 DS © 8 CHR 
END3 
IF AXNUM 40 THEN 
BEGIN 
FINALAXCLINEO Js AXNUMe INFOCLASTSEQROWsLASTSEQUENCE))3 
WRITELINES 
ENOS 
SCRAM #2 CTIMECL)*TIME1)/603 


PANCSCRAM@LINCOJsERRORCOUNTs INFOCLASTSEQROWsLASTSEQUENCE®=] )) 

3 

WRITELINES 
PENCLINCOJsPRTIMAXsTS@CL+3IOIV Ss TIFCORADR+T» 

CCT#29)01V 30*0ITSKADR)x30)3 
WRITELINES 
LOCKCLINEsRELEASE)S ENDS 
¥SEGMENT DESCRIPTOR® 


IF ERRORCOUNT # O THEN I*0/0 ELSE 
BEGIN 
ARRAY SAWINFOCOQO?3108255), 
*SEGMENT DESCRIPTOR® 


® SAVINFO 
INFOCOS200,08255)3 & FOR LARGE MCPHS, 
= INFO 
INTEGER SAVNDXsNONSAVNDXPNS 
= SAVNDX 
® NONSAVNDX 
= N 
INTEGER Qe deKoMs 


BOOLEAN TSSTOGs REAL Th 
TSSTOG 
T 


REAL PROCEDURE PUSHERCGRINCH*GOT*XMAS)3 VALUE XMAS# REAL XMAS} 


PUSHER 
ARRAY GOTLO]3 ARRAY GRINCH [00]3 

BEGIN 
REAL WHOsWHATS 

= WHO 

= WHAT 
DEFINE LINKR @# (€32286)%3 

P| 


IF WHOSSXMAS,LINKC § 225 THEN 
BEGIN 
MOVE C30sGRINCHEC XMAS eLINKR» WHOIJ*GOTLOI D3 


76 18 


09379000 
09380000 
09381000 
09382000 
09383000 


i 


09384000 
09384050 
09384300 
09384500 
09384600 
09385000 
09386000 
09386500 
09387000 
09388000 
09389000 
09389500 
09390000 


i ee ee) 


87 LONGs 
09391000 T 
09392000 T 
09392300 T 


START OF SEGMENT «# 


09392500 T 
09393000 T 


09393010 T 


09393020 T 


09393050 T 


09393060 


T 
09393070 T 
09393080 T 

* 


START OF SEGMENT 


09393090 
09393100 
09393110 


09393120 
09393130 


ae 


0029 
0031 
0035 
0036 
0037 


0037 
0038 
0039 
0044 
0052 
0052 
0054 
0057 
0057 
0067 
0074 
OU74 
0084 


NEXT SEG 
0092 
QQ94 
0095 


Keene ee 
0003 
0005 


0005 


0005 


0005 


0005 
0005 
0005 


weeeteaten 


90000 
0000 
0000 
0001 
0002 


69 


77 


78 


PRT(651) = 


STACKC(Fe2) 
STACK(F 43) 
STACKCF 44) 


PUSHEE 


ao4uo68 


x Ce 


ELSE 


PUSHERY=XMAS + 303 

END 

BEGIN 

MOVE CWHATS ®256*WHOsGRINCHECXMASsLINKReWHUIJ»GOT(OI)3 
XMASIBXMAS + WHATS 

MOVECWHOES30"WHATs GRINCHEXMASeLINKR9 Ole GOTLEWHATI)3 
PUSHERI=XMAS + WHOS 

END3 


END PUSHERS 


PROCEDURE PUSHEECGRINCHsNsBs¥)3 VALUE Ne Be Ys REAL Na Bo ¥3 


ARRAY GRINCH(0s0)3 


BEGIN 


REAL 


TadaXs 


DEFINE LINKR # C32%8)83 


JtaY3 


1:38 


# N3 


WHILE B < 1 O00 


ELSE 


END} 


BEGIN 

IF YERB.LLINKC $$ 225 THEN 

BEGIN 

MOVEC 302s COVE CU) sGRINCH(BeLINKRe YJ) )3 

JtaJ + 303 

B328 + 303 

END 

BEGIN 
MOVECX#B256°Ys CODEC J) sGRINCHE[BeLINKR»o YY] )3 
BtzB + X3 

JhBl + X) 

MOVECY 8 w30*xXe CODE (CV) sGRINCH[BeLINKRs0))3 
Bixee + Y3 

Jtiay ¢ ¥j 

END} 


END PUSHEE3 


STREAM PROCEDURE FIXRDR(FeN)3s VALUE N32 


PRT(652) = FIXHOR 
BEGIN SI@F3 Sl#STe243 OleLoc Fs OSewdS; 


SIFS L4CST*+SI+8)3 O1eLOC Fs OSeWDS; 
DIFFS OL¢O1+38s ST* LOC NI 
ST#S1473 OSeCHRS 


ENB FIXHOR3 


76 1S 


09393340 
09393150 
09393160 
09393170 
09393160 
09393190 
09393200 
09393220 
09393230 


20 LONG 


09393240 


09393250 
09393260 
09393270 


START OF SEGMENT 


79 «IS 


09393280 
09393290 
093893300 
09393310 
09393320 
09393330 
09393340 
09393350 
09393360 
09393370 
09393360 
09393390 
09393400 
09393410 
09393420 
09393430 
09393440 
09393450 
09393460 
09393470 
09393480 


35 LONG 


09393700 


09393710 
09393720 
09393730 
09393740 
09393750 


T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 


T 
T 
T 
* 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


2 


0005 
0006 
0006 
0007 
0014 
0012 
0016 
0017 
0017 
NEXT SEG 


0005 


0005 
0005 
0008 


wee 


0000 
0000 
0000 
0002 
0003 
0003 
0005 
0005 
OO1%1 
0012 
0013 
0013 
0014 
0020 
0021 
0023 
0029 
0030 
0032 
0032 
0032 


NEXT SEG 


0005 


0005 
0007 
0008 
Q009 
0009 


77 


79 


77 


LABEL EQF3 
IF NOT INTOG THEN 
BEGIN 
LeCL*30IV 45 COMMENT LeNUM, OF WORDS IN UUTER BLOCKS 
FILL SAVINFOCOs*) WITH 
O0CT7700000000000015» 


OCTO2Z253010477527705s 
UCTO051000000000000. 
0CT04410700010000623 


@ # #43 
PUSHEECSAVINFOoL2425)3 
SAVNDX8sL3 
END3 
REWINDCCODISK)3 
D0 BEGIN IF REEDsSO THEN GO TO EOFS 
NeFETCHCMKABS(CODE(O)) 2913 
IF BOQLEANCFETCHCMKABS(CODE(1)))) THEN 
BEGIN 
PUSHEECSAVINFOQsNsSAVNDX e193 
SAVNOXS*SAVNDX oN 
END ELSE BEGIN 
IF DECKTOG THEN 
STACKHEADLQ*Q4¢1] © LO2Z4xNONSAVNDOXENS 
PUSHEECINFOsN* NONSAVNDX9 1232 
NONSAVNDX!#SCCNONSAVNDX # N + 29)D1V 309X303 
END 
ENO UNTIL FALSE, 
EOF’ N@CSAVNOX4#29) DIV 305 COMMENT NUMBER OF DISK SEGMENTS 
OCCUPIED BY SAVE PROCEDURES AND ARRAYSS 
TF INTOG AND NOT OECKTOG THEN 
% INTRINSIC FUNCTION OPTION 
FOR JtSUSEROPINX STEP 2 UNTIL OPARSIZE 00 % 15 TIMESHARING SET 
IF OPTIONS(C VY) * “@TIMES” THEN 
BEGIN TSSTUGS*BOOLEANCOPTIONS(Cy41I))3 
I ¢ PRTBASE + 13 J © QF 
DO IF GT1 * PRTCI] #0 THEN 
BEGIN 
J © Jeh3 
SAVINFOCUeLINKReJeLINKC) © 
Q&GTica'ssi0) 
&GT1033%18t15)]3 
END UNTIL [tel +1 2 PRTIMAX3 
SAVINFO[000] © Ji 4 # OF INTRINSICS 
SAVNDX © MAXINTRINSIC3 


END ELSE BEGIN 
TePRTBASES OO IF GTie*#PRTICIJ#0 THEN 
BEGIN IF GTieCi8SJ4LDES THEN 
BEGIN IF CGT14GT160GT1.033815) 4 0338393815) ),0682)43 THEN 
GTASGTLACGT1eCIBFISJeNICLSs 3381503 


BEGIN 


JPZOPARSIZE END; 


END3 
MDESCCGTLisSAVINFOLIT eLINKReITeLINKCI)3 

END ELSE SAVINFOLIeLINKReTeLINKCJ3#0 UNTIL Iteley2PRTIMAXS 
MDESCCOSLLC28479$ J oSAVINFOCOsPRIBASE®41))3 


09394000 T 0010 
09394100 T O010 
09396200 Tt OO011 
09895000 fT OO]11 
09395100 fT 90013 
098935200 T 0014 
START OF SEGMENT wetewtwanne 
09395300 7 0015 
09395000 TF 0015 
09395500 T 0045 
680 IS 4 LONG, NEXT SEG 
09395700 7~ QO015 
09396000 T 0016 
09397000 rT 0018 
09397300 7 0039 
09398000 T QOU;19 
09399000 T 0024 
09400000 T Q022 
09401000 T 0028 
09402000 T 90033 
09402100 T 0034 
09403000 T 0036 
09404000 T O03? 
09405000 fT 0038 
09405500 T OU3a@ 
09406000 T 0042 
09407000 T 9044 
09408000 T 0047 
09412000 fT OQ047 
09413000 T 0048 
09414000 T 0050 
09414010 T 0050 
09414020 fT 0052 
09414022 T 0053 
09414024 T O055 
09414026 YT 0056 
09444030 T 0064 
09414040 T 0063 
09414050 T 9065 
09414060 Tr 0065 
09414070 YT 0066 
09414080 T 0069 
09414090 fT 0070 
09444100 T QOO74 
09414110 Y 0073 
094141320 T 0075 
09414130 YT OU76 
094135000 T 0078 
09445500 T 0084 
09416000 fr 00682 
09417000 T 0086 
09417500 Tt 0089 
09418000 T 0089 
09419000 T Q092 
09419100 T 0097 


80 


17 


SAVNDX ¢ 30 «x N3 09420000 T 

END3 09420010 T 
Te 0} Ve e435 09420020 T 
09420100 T 

IF NOT DECKTOG THEN 09421000 T 
BEGIN 09421500 Tf 
DQ 09422000 T 
BEGIN 09423000 T 
Le sPUSHERCSAVINFOSELBATa 123 09424000 fT 

wisj + 13 09425000 T 
WRITECDISKs 30° EL BATC«#) )3 09425900 T 

END UNTIL I 2 SAVNDX3 09426000 T 
1!s03 09427000 T 
WHILE I < NONSAVNDX 00 09427100 T 
BEGIN 09427200 T 
Ti=PUSHERCINFOsSELBATSI)3 09427500 T 

JtsJl # 43 09428000 T 
WRITECDISKs 30*ELBATC#I)3 09429000 T 

END3 09430000 T 
N©IF INTOG THEN IF TSSTOG THEN 09430050 T 
TSSINTYPE ELSE OCINTYFE ELSE MCPTYPES 09430060 T 
FIXHOR(DISKsN)3 09430075 T 
LOCKCOISKsw)3 09430100 T 

END ELSE 09431000 T 
BEGIN ELBAT(COJ]©03 Leto; 09432000 T 
DO BEGIN MOVECBsSAVINFOCTeLINKReTaLINKCJsELBATL1I93 09433000 T 
ELBATECII*B2OCIT+96 SIL LLE478y 3180149690 2333591)3 09434000 7 
WRITECDECKs 10s EL BATC#) 3 09435000 fT 

END UNTIL T#I*#82SAVNDX3 09436000 fT 

FILL ELBATC*#2 WITH Os 09437000 fT 

START OF SEGMENT * 

06T7$00000000000012s 09438000 fT 
0CT0004535530641765, 09439000 T 
06T7006000404240435> 09440000 T 
0¢T770000000000004 5» 09441000 T 
OCT0253010477527705» 09442000 fT 
0€T0051000004410046s 09443000 T 
0€6704414070001000062~ 09444000 T 
06T0040443100000000» 09445000 T 
0¢6T00010000000001013 09446000 T 

81 1S 10 LONG» 

WRITE CDECKs LOsELBAT(¥))3 09447000 T 
ELBATCO] #O&REAL(DECKTOGI(1619317)3 09447010 T 

FOR I © Q STEP 2 UNTIL Q DO 09447020 T 
BEGIN K © STACKHEAD(II,£C23%15]3 09447030 T 

M © STACKHEADCI].(36%10)3 09447040 T 

FOR J ¢ 0 STEP 8 UNTIL M OU BEGIN 09447050 T 

MOVECAsINFOCC USK) sLINKRa CJHK) oLINKC) > 09447060 T 

ELBAT (1))3 09447070 T 

ELBATC9) © B2OCuanMaLO™C 133191793 09447080 T 

WRITE COECKs LOsELBAT(*)) END 09447090 T 

END} 09447100 T 

END END END PROGRAM} 09448000 T 


PRT(653) # *SEGMENT ODESCRIPTOR* 
77 YS 186 LONG» 
69 IS 101 LONG» 


0104 
0102 
0102 
0104 
0104 
0105 
0106 
0106 
Q106 
0109 
0110 
Oila 
0415 
0116 
0418 
Olis 
Oley 
Ol122 
0126 
0127 
Ql2a 
0131 
Q132 
0134 
0134 
0137 
0140 
0145 
0149 
0154 


eetteewven 


0153 
0153 
0153 
0153 
0153 
0353 
0153 
01453 
0153 
NEXT SEG 
0153 
0157 
0160 
0162 
0163 
0165 
0166 
0169 
0170 
0473 
0179 
0182 


NEXT SEG 
NEXT SEG 


84 


77 


69 
3 


COMMENT THIS SECTION CONTAINS GENERATORS USED BY THE BLOCK ROUTINES 10000000 T 0468 
PROCEDYRE DEFINEGENCMACROs J) VALUE MACRO»ys BOULEAN MACROS REAL vs 19228000 T 0468 
PRT(654) = OEFINEGEN 


BEGIN 10229000 T 0468 
OWN INTEGER CHARCOQUNTs REMCQUNTS 10230000 fT 0468 


START OF SEGMENT weeetwawae 82 
PRT(655) * CHARCOUNT 
PRT(656) = REMCQUNT 


COMMENT CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFINE THAT WE 10231000 T 0000 
HAVE PUT INTO INFQe REMCOUNT CONTAINS NUMBER OF CHARACT® 10232000 T 90000 
ORS REMAINING IN THIJS ROW OF INFOS 10233000 T 0000 
PROCEDYRE PUTQGETHERCCHAR)$ REAL CHAR3 10834000 7 0000 
PRT(657) = PUTOGETHER 
BEGIN 10235000 rt 0000 
STREAM PROCEDURE PACKINFOCINFOsTSKIPs COUNTS ASKIP » ACCUM )3 10236000 ~ 0000 
START OF SEGMENT weavtwawnw 83 
PRT(660) § PACKINFO 
VALUE ISKIPsCOUNTsASKIP3 10237000 T 90000 
BEGIN DI © INFOS OF © DI*ISKIP3 10238000 T 0000 
SI © ACCUMSSI © SI*ASKIPS SI] © SI]43;3 16239000 r 0000 
DS © COUNT CHR END PACKINFQO; 10840000 rt 0004 
INTEGER COUNTsSKIPCOUNTS 10241000 T 0002 
STACK(F 42) = COUNT 
STACKCF4¢3) & SKIPCOUNT 
IF CCQOUNT © CHAR,C42%6)) + CHARCOUNT > 2047 : 10242000 7 0002 
THEN BEGIN FLAG(142)3 TB1e TRUE END 10843000 Y 0004 
ELSE BEGIN 10844000 T 0007 
1F COUNT > REMCOUNT 19245000 tT QU09 
THEN BEGIN 10246000 ry 90009 
SKIPCOUNT © COUNT*C(COUNT*REMCOUNT )3 10247000 Tt 0010 
REMCOUNT © 2047 END 19248000 Tf O02 
ELSE REMCOUNT © REMCOUNT*@COUNT} 10249000 T Q012 
GT1 © CHARCOUNT OIV & * NEXTINFOS 10250000 T 0016 
PACKINFOCINFOCGTieLINKReGTleLINKC] a CHARCOUNT»C45S83)» 10251000 fF 0018 
COUNT*# Os CHAR) 3 10252000 tT 0024 
IF SKIPCOUNT 4 O TREN 10253000 T 0022 
PACKINFOCINFOCNEXTINFOsLINKR4#2s0 J) 0 02SKIPCOUNT? 10284000 yt 0023 
COUNTs CHAR) 10255000 7 0026 
CHARCOUNT © CHARCOUNT*+SKIPCOUNT*COUNT END 10256000 T Q027 
END PUTOQGETHER} 10257000 T 0029 
83 1S 32 LONG, NEXT SEG 82 


STREAM PROCEDURE SCANCDsSsQeNeoJ2s VALUE Je No gs 10257100 T 9000 
PRT(661) ™ SCAN 
BEGIN DI©DsDLeDI+lisSlessSIeSi+33 10857200 T Q000 
IF N 38C30C THEN 10857300 7 0004 
IF SC2>"0" THEN 10857400 T 0001 
BEGIN DIe*LOC ys DIeDI 473 16257500 T 0002 


STACKCFe2) 


STACK (F 43) 
STACKCF +4) 
STACKCF 45) 


END END 


IF SCSOC THEN 

BEGIN JeSIsSOI*UsSTOLOC QsSleSI+650S¢CHRI 
DI*SiDT «01 +2s0S¢CHR3 

END3 


INTEGER LASTRESULTS 


LASTRESULT 
REAL KeNs EL CLASS} 
K 
N 
ELCLASS 
DEFINE I*NXTELBT#3 
LABEL FINAL sPACKING 
LABEL BACK#SKSCSEXITS 
TBie FALSE; 
CHARCOUNT*(NEXTINFO*LASTINFO) x84 
DEFINECTR © 13 LASTRESULT © 23 
REMCOUNT © (256 = NEXTINFO MOD 256) x 83 
NEXTINFO*LASTINE OS 
IF J#0 TREN NeoTAKECLASTINFO*1),Ci2t6)3 
KeQ3 
BACK! STOPDKFINE*TRUE} 
ELCLASSe¢TABLECNXTELBT Ds 
SKSC§ NXTELBTeONXTELBT #43 
IF MACRO THEN 
BEGIN IF ELCLASSSCUMMA THEN 
IF KeO THEN 
FINAL? BEGIN PUTOGETHER("2#0000")4 GO TO EXIT END 
ELSE GO PACKINS , 
TF ELCLASSSLEFTPAREN OR ELCLASS=LFTBRKET THEN 
BEGIN Keke13 GO TO PaCKIN ENDS 
IF ELCLASSSRTPAREN OR ELCLASSSRTBRKET THEN 
IF KeKw4<0 THEN GO FINAL ELSE GO PACKING 
IF ELCLASS#SEMICOLON THEN 
BEGIN FULAGC142)3; GO TO FINAL END ELSE GO PACKIN 
END3 
TF JF0 THEN 
IF ACCUMCAIJ¢CI2S6]*°1aN THEN 
SCANCINFOCLASTINFO, LINKR el ASTINFOs LINKCJ> 
ACCUMEC AJ 9N+7709NoJ)3 
PACKING 
IF RESULT = 4 
THEN BEGIN 
COMMENT INSERT " MARKS * 2430706432 IS DECIMAL FOR 400003 


PUTQGETHER( 2130706432 )3 
PUTOGETHERCACCUM(1))3 
PUTQGETHER( 2130706432) END 
ELSE BEGIN 
IF BOOLEANCRESULT) AND BOOLEAN(LASTRESULT) 
THEN PUTQGETHERC*1 0000")3 COMMENT INSERT BLANKS 
PUTOGETHERCACCUM(1]) END3 
IF TB1 THEN GO TO EXITS 
LASTRESULT * RESULT 
1F MACRO THEN GO BACKs 


10257600 
19257700 
10257800 
10857900 


10258000 
10258100 


10258200 
10258300 
10459000 
10860000 
10861000 
10262000 
10263000 
10263100 
10263110 
10263200 
10263300 
10263400 
10263500 
10263600 
10263700 
19263800 
10263900 
10264000 
10264100 
10264200 
10264300 
10264400 
10264410 
10264420 
10264500 
10264600 
10264700 
10864800 
10204900 
10864910 
10265000 
10266000 
19267000 
10268000 
19269000 
10270000 
102871000 
10872000 
10273000 
10874000 
10875000 
10276000 
10876500 


44-4 


AH HH tN tt Ht ttt tt to He 


0003 
0004 
0006 
0006 


0007 


0007 


0007 
0007 
0007 
0007 
0007 
0009 
0011 
0013 
0014 
0017 
0016 
0019 
0024 
0022 
0022 
0023 
0025 
0029 
0029 
0030 
0033 
0034 
0038 
0038 
0040 
0040 
0044 
0043 
0046 
0048 
0049 
0049 
0050 
0050 
0054 
00S2 
0052 
0055 
0055 
0057 
0058 
0059 
00s9 


EXIT 


IF ELCLASSSDECLARATORS AND ELBATCIIJ¢ADDRESS = DEFINEV 
THEN BEGIN DEFINECTR © DEFINECTR*#13 GO BACK END 
IF ELCLASS # CROSSHATCH THEN GO BACK; 
IF DEFINECTR 4 4 
THEN BEGIN STOPDEFINE ©¢ TRUE3 
IF ELCLASS*TABLECI2FCOMMA THEN 
DEFINECTReDEFINECTR#145 GO SKSC ENDS 
DEFINECTRe 03 
NEXTINFO «C€CHARCOUNT4#7) DIV B*NEXTINF OS 


END DEFINEGENS 


PROCEDURE OBLSTMTS 


STACK(F +2) & S 
STACK(Fe3) & T 


BEGIN 
REAL SsT3 


LABEL LisLesL3eExIT; 
S$¢03 
IF STEPIZLEFTPAREN THEN ERR( 281) 
ELSE 
BEGIN 
IF STEPI=COMMA THEN 
BEGIN 
DPTOG* TRUE? 
IF STEPIZADOP THEN STEPITS 
EMITNUMCNLO)DG 
EMITNUMCIF ELBATCI°1]¢A0DRESS sSUB THEN PNAT ELSE NHID3 
DPTOGeFALSE3 
STEPIT3 
GO TO Las 
END3 
IF TABLECI*#3)8 COMMA THEN 
BEGIN 
IF ELCLASS#ADOP 
BEGIN 
EMITOCELBATCI] ADDRESS +1 23 
TF S#S#4S80 THEN FLAGC282)% STEPITS 


QR ELCLASS@MULOP THEN 


GO TO L3s 
ENDS 
IF ELCLASS#ASSIGNOP THEN 
BEGIN 
IF $41 THEN FLAGC283)3 S03 STEPITS 
DO 
BEGIN 
IF ELCLASS COMMA THEN BEGIN ERR(284)3G0 EXIT ENDS 


STEPIT3 
IF ELCLASSSINTID AND ELCLASS2REALIO THEN 
BEGIN EMITNCELBATCIJ¢ADORESS)S STEPIT END 
ELSE VARTABLECFLOS 
EMITOCSTO) END UNTIL S#Se182 3 
IF ELCLASSFRTPAREN THEN ERR( 265) ELSE STEPITS 
GO TO ExITs 


82 1S 


10277000 
10278000 
102879000 
10280000 
10281000 
10262000 
10283000 
10284000 
10285000 
16286000 


81 LONG 


12002000 
12003000 
12004000 


START OF SEGMENT 


12005000 
12006000 
12007000 
12008000 
12009000 
12010000 
12011000 
12012000 
12013000 
12014000 
12015000 
12016000 
12017000 
12018000 
12019000 
12020000 
12021000 
12022000 
12023000 
12024000 
12025000 
12026000 
12027000 
12028000 
12029000 
12030000 
12031000 
12632000 
12033000 
12034000 
12035000 
12036000 
12637000 
12038000 
12939000 
12040000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
r 


T 
T 
T 


0060 
0062 
0067 
0068 
0068 
0070 
0072 
0074 
0075 
0078 
NEXT SEG 


0468 
0468 
0468 


eee etehen 


AA HHH AA HH HHA t  t  t  e 


0000 
0000 
0000 
0002 
0003 
0004 
0005 
0005 
0006 
0008 
0009 
0013 
0014 
0014 
0015 
0015 
0016 
0017 
0019 
0019 
0021 
0025 
0025 
0025 
0026 
0026 
0030 
0030 
0030 
0032 
0033 
0034 
0037 
0038 
o044 
0044 


3 


84 


STACK(CF +3) 
STACK(F 44) 
STACK(F 45) 
STACK(F 46) 
STACK(F +7) 


PRT(662) 2 


kHRH aH 
Meo WVMA*K 


Las 
L338 


EXITSEND 
END 


REAL PROCEDURE FIXDEFINEINFOC(T)3 


ENDS 
IF ELCLASSSINTIO AND ELCLASS2B800IU THEN 
BEGIN 
CHECKERCT*ELBATCI))3 
STEPITSSTEPIT3 
AEXP; 
EMITVCT.ADORESS)3 
GO TO Leé 
ENO3 
END 3 
AEXP3 
IF ELCLASS*COMMA THEN BEGIN ERR(284)3G0 EXIT 
ENDS 
STEPITS AEXPS EMITOCXCH)3 
S¢Seli 
IF ELCLASSFZCOMMA THEN BEGIN ERR(284)3G0 TQ EXIT END3 
GO TO Lis 


DBLSTMT3 


VALUE Ts REAL T3 


BEGIN REAL KeSePsJsELi 


STREAM PROCEDURE SETCS»DeKsE)s VALUE Ko E3 


BEGIN SleSsSleSI+1 ps0 VOT eDI4+3s0SeK CHR 


ENDS 


ST*LOC Es ST*#SI463 DSe2 CHR 


MACROIDeTRUE} 

PeCFIXDEFINEINFO*T).ADDRESS3 

Ke COUNTS 

S¢SCRAM3 

STREAMTOG*TRUE & STREAMTOG(1#3845) 3 

STOPQEFINE*TRUES 

ELeTABLECNXTELBT D2 

NXTELBTONXTELBT #23 

IF ELALEFTPAREN AND ELZLFTBRKET THEN 

FLAG(141) 

ELSE 00 BEGIN Jeyel3 
SETCINFOCTLINKRe TeLINKCJ] 2 ACCUMEL1 J] 9K 264X%Y412)3 
ACCUM( 1) CIi2:oleKkse23 
ACCUMEO J] 603 
ACCUMCO] «CLASSeDEFINEDID3 
COUNTeKe23 


84 IS 


12041000 
12042000 
12043000 
12044000 
12045000 
12046000 
12047000 
12048000 
12049000 
12050000 
12051000 
12052000 
12053000 
12054000 
18955000 
12056000 
12057000 
12058000 
12059000 


65 LONG 


12101000 
12102000 


START OF SEGMENT 


12103000 


12104000 
12105000 
12106000 


12107000 
12108000 
12109000 
12110000 
12110100 
12111000 
12112000 
12113000 
12114000 
12115000 
12116000 
12117000 
12118000 
12119000 
12120000 
12121000 


Hs 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
% 


T 
T 


0045 
0045 
0046 
O04? 
0048 
0049 
0050 
0054 
0052 
0052 
0052 
0052 
0055 
0055 
0056 
0058 
0064 
0062 
0062 

NEXT SEG 


0468 
04686 


WHERRK HHH 


444 «7 


AANA HHH 


0000 


0000 
0004 
0002 


0002 
0003 
0005 
0006 
0007 
0008 
0009 
0010 
Q012 
0013 
0014 
0017 
0022 
0025 
0026 
0028 


3 


85 


SCRAM*ACCUMEC1] MOD 1293 12122000 T 0030 
Ea 12123000 T 0034 
DEFINEGENCTRUE?O)3 12124000 T Q032 
END UNTIL EL©ELBATCNXTELBT] ¢CLASSACOMMA 12125000 T 0033 
IF ELARTPAREN AND ELFRTBRKET UR JAP THEN FLAG(141)3 12126000 T 9035 
MACROIDeFALSE; 12127000 - 9039 
STREAMTOG*+STREAMTOG,(1245] 3 12127100 Tf 90040 
END} 12128000 T 0042 
85 1S 46 LONGs NEXT SEG 3 
PROCEDYRE SCATTERELBATS 18197000 T 0468 
BEGIN 13198000 rT 9468 
REAL T3 13199000 T QO468 
START OF SEGMENT waeutttnwen 86 
STACK(F 42) = T 
Y © ELBAT(I]3 13200000 0000 
KLASSF © TeCLASS3 13201000 0004 
FORMALF + BOOLEANCT,.FORMAL )3 13202000 0002 
VONF © BOOLEANCTeVUD5 13203000 0003 
LEVELF © Teh VL3 13204000 0004 
ADORSF ¢ TsADDRESSS 13805000 0006 
INCRF © T,INCR3 138206000 0007 
LINKF © TeLINK3 13207000 Q008 
END SCATTERELBAT3 132808000 0009 
12 LONG, NEXT SEG 
PROCEDURE CHKSOBS 13209000 0468 
PRT(663) = CHKSOB | 
IF GTALCWeU"1I140 THEN FLAG(23)3 13210000 0468 
DEFINE 13211000 7 0472 
ADDC#532480#, 13212000 7 OQ472 
§UBC 2158105684. 13213000 Y Q47@2 
EMITSTORESEMITPAIRE; 43214000 rt O472 
PROCEDURE PURGECSTOPPER)§ 13215000 Tt OQO472 
VALUE STOPPERS 13216000 tT Q472@2 
REAL STOPPER; 13217000 T O472 
BEGIN 13418000 tT 0472 
INTEGER POINTERS 13219000 T 0472 
START OF SEGMENT eexetennwe 

STACK(CFe2) = POINTER 
LABEL RECOVS DEFINE ELCLASS # KLASSF #3 13220000 0000 
REAL JeNeOCRs Ths ADDS 13221000 0000 


STACK(F 43) # J 
STACK(F 44) = N 
STACKCF4#5) = OCR 
STACK(F46) = TL 
STACKCF+7) = ADD 


POINTER*LASTINFOS 
WHILE POINTER 2 STOPPER 
00 
BEGIN 
IF ELCLASS©(GTIS¢TAKECPOINTER) ) eCLASSSNONLITNO 
THEN BEGIN 
NCIJTeNCI Ie 13 
EMITNUMCTAKECPOINTERS1))3 
EMITSTQORECMAXSTACKsSTD)3 
MAXSTACKe (GeEMAXSTACK ) 443 
SOLS LOGTL LINKS 
00 
BEGIN 
GT4+GET(L D3 
EMITV(G) 
ENO 
UNTIL CLeGT4)#40953 
wows 
POINTER@POINTER*®*GT1eINCR 
END 
ELSE 
BEGIN 
IF NOT BOOLEANCGT4 «FORMAL ) 
THEN BEGIN 
IF ELCLASS = LABELIO 
THEN BEGIN 
ADD ¢ GT1eADDRESS;3 
IF NOT BOOLEANCOCReTAKECGITCPOINTER) )2eCLti) 
THEN IF QCR,C36#12) #4 0 OR ADD «x O 
THEN BEGIN GTi * 1603 GO 70 RECOV END3 
IF AOD # 0 THEN 
PROGDESCBLDR(CADDe TRUESOCR,C36810J]s,0ES) END 
ELSE IF FALSE 
THEN BEGIN 
IF TAKECPOINTERS1) < 0 
THEN BEGIN GTi © 1623 GO TO RECOV END; 
OCR *(J © TAKECGITCPOINTER) ))ef24ti2]3 
N © GETC (devel 36812) 94493 TL © L3 
IF ADD © GT1eADDRESS F O 
THEN BEGIN 


IF OCR z 0 
THEN BEGIN LeOCR*™2s CALLSWITCHCPOINTER)S EMITOCBFW)SEND3 
Legelds EMITLO15)5 EMITOCRTS)3 
FOR J ¢ 4 STEP 4 UNTIL N 
00 BEGIN 
EMITLOGNATCGETCLIX4O9O4GET( L442) 23 
EMITOCRTS) END END 
ELSE BEGIN 
L * v*13s 
FOR J © 4 STEP 4 UNTIL N 
00 BEGIN 
GT1 © GETCL)xX4O0964+GET(L41 23 
GOGENCGTi*#BFW) ENDJENDS 
L * TL END 
ELSE IF ELCLASS 2 PROCIO AND ELCLASS $ INTPROCIO 
THEN IF TAKECPOINTER#1) < 0 


13222000 
13823000 
13224000 
13225000 
13226000 
13227000 
13228000 
13229000 
13230000 
13231000 
13232000 
13233000 
13234000 
13235000 
13236000 
13237000 
13238000 
13239000 
13240000 
13241000 
13242000 
13243000 
13244000 
13245000 
13246000 
13247000 
15248000 
13249000 
13250000 
13251000 
13252000 
13252500 
13853000 
13254000 
13255000 
13256000 
13257000 
13258000 
13459000 
13260000 
13261000 
13262000 
13263000 
18264000 
19265000 
13266000 
18267000 
13268000 
13869000 
12270000 
13271000 
13272000 
13873000 
13274000 
13277000 
13278000 
13279000 


AANA MMH NAH HHH HA Ht A HA A A A Tt a ta SH as 


0000 
0000 
Q004 
0002 
0002 
0004 
0005 
0006 
0008 
0009 
0011 
0013 
0014 
0014 
0015 
QO15 
0016 
0017 
0018 
0018 
0020 
0020 
0022 
0022 
0023 
0023 
0024 
0026 
0028 
0030 
0033 
0033 
0036 
0037 
0037 
0038 
QO044 
0043 
0047 
0048 
0049 
Q049 
0049 
0053 
0056 
0036 
0057 
0060 
0063 
0066 
0067 
0067 
0068 
O07! 
0074 
0075 
0078 


THEN BEGIN GT1 © 4613 


RECoV: MOVE COs INFOCPOINTEReLINKRePOINTERLINKC) sACCUM)S 
Q@ © ACCUMECLI]4 FLAGC(CGT1)4 ERRORTOG © TRUE END 
ENO3 
GT2Z¢TAKECPOINTER*41)3 
GT3¢GT2,PURPT3 
STACKHEADE (CO&GT20128129836)) M00 L25J¢TAKECPOINTER) eL INKS 
POINTERePOINTER*@GT3 
ENO 
END 3 
LASTINFO*POINTERS 
NEXTINFO*STOPPER 
ENDS 


PROCEDURE E3 
COMMENT 

—£ IS THE PROCEDURE WHICH PLACES AN ENTRY IN INFO ANO 

HOOKS IT INTO STACKHEADe THE PREVIOUS STACKREAD LINK 

1S SAVED IN THE LINK OF THE ELBAT WORD IN THE NEW ENTRY 

E PREVENTS AN ENTRY FROM OVERFLOWING A ROWsSTARTING AT THE 

BEGINNING OF THE NEXT ROW IF NECESSARY 
BEGIN 

REAL WORDCOUNT*RINXS 


STACKCF+e2) = WORDCOUNT 
STACKCF 43) © RINX 
IF RINX©CNEXTINFO*WORDCOUNT*(COUNT4+18)0IV 8 
NEXTINFQ,LINKR 
THEN BEGIN PUTCI258&CRINXXZ256@NEXTINFOC2784088 JoNEXTINF ODS 
NEXTINFO®256xRINX ENDS 
IF SPECTOG THEN 
IF NOT MACROID THEN 
UNHOOK3 


YeLINKR # 


ACCUMCOJ ,INCReWORDCOUNTS 

IF NOT INLINETOG OR MACROID THEN BEGIN 

ACCUMCOJ «LINK *STACKHEADCSCRAM]SSTACKHEAD CSCRAM) NEXT INFOS 

END3 
ACCUMC 1) ePURPT*NEXTINFU*LASTINFOS 
MOVE CWORDCOUNTs ACCUMs INFOLNEXTINFG OsLINKR#NEXTINFOeLINKC) 3 
LASTINFO*NEXTINFOS 
NEXTINFO*NEXTINFO*WOROCOUNT 
ENDS 


PROCEDURE ENTRYCTYPE)3 
VALVE TYPE3 
REAL TYPES 
COMMENT 
ENTRY ASSUMES THAT I I$ POINTING AT AN IDENTIFIER WHICH 


87 IS 


13280000 
13281000 
13282000 
13883000 
13284000 


13285000 
13286000 


13287000 
13288000 
13289000 
13290000 
13291000 
13292000 


103 LONG 


13293000 
13294000 
13295000 
13296000 
13297000 
13298000 
13299000 
13300000 
13301000 


START OF SEGMENT 


88 IS 


13302000 
13303000 
13304000 
13305000 
13805100 
13305200 
13305300 
13306000 
13307000 
13307500 
13308000 
13308500 
13309000 
13810000 
13311000 
13312000 
13313000 


30 LONG 


13314000 
13315000 
43316000 
13317000 
13318000 


ts nt 


ee ee ee ee ee 


| 


0080 
0082 
0086 
0089 
0089 
0090 
0092 
0095 
0096 
0097 
0097 
0098 
0098 
NEXT SEG 


0472 
Q472 
0472 
0472 
0472 
0472 
0472 
0472 
0472 


keaethehik 


0000 
0003 
0003 
0007 
0009 
0009 
0010 
0011 
00141 
0013 
0015 
0019 
0019 
0022 
0025 
0026 
0026 
NEXT SEG 


0472 
0472 
0472 
0472 
Q472 


3 


88 


3 


IS BEING DECLARED AND MAKES UP THE ELBAT ENTRY FOR IT 
ACCORD TO TYPE eIlF THE ENTRY ITS AN ARRAY AND NOT 
A SPECIFICATION THEN A DESCRIPTOR IS PLACED IN THE STACK 
Date FOR THE UPCOMING COMMUNICATE TO GET STORAGE FOR THE ARRAY(S) 
GIN 
w¢O31¢T Ls 
00 
BEGIN 
STOPDEFINE «TRUES STEPITS SCATTERELBAT3 
IF FORMALFeSPECTOG 
THEN 
BEGIN 
IF ELCLASSFSECRET 
THEN FLAGCO02)3 
BUP*BUP+1 
3 KLASSFekYPESMAKEUPACCUMS Es Jeue]3 
END 
ELSE 
BEGIN 
IF ELCLASS>IOMAX 


THEN TF ELCLASS= POLISHV THEN ELCLASS*TYPE ELSE FLAG(3)3 


IF LEVELFSLEVEL 
THEN FLAGCOO123 
VONFeP2s 
FORMALF*PTOG3 
KLASSFeTYPE} MAKEUPACCUMSES yeutls 
IF (CCFORMALFePTOG) ORCSTREAMTOG AND NOT STOPGSP)) AND NOT P2 
THEN ADDRSFePVeP ue) 
ELSE IF STOPGSP 
THEN ADORSFeO 
ELSE AQDORSFISGETSPACE(CP2sLASTINF O41 23 
PUTCTAKECLASTINFQJ& ADDRSFCL6337814 +L ASTINEO)3 
END END 


UNTIL STEPIZCUMMA OR STOPENTRYS GTALLOJeY 
END3 


PROCEDURE UNHOOKS 
COMMENT 
UNHOQK ASSUMES THAT THE WORD IN ELBATCI] POINTS TO A PSUEDO ENTRY 
FOR APARAMETER@ITS JOB IS TO UNHQOK THAT FALSE ENTRY SO THAT 
E WILL WORK AS NORMAL, 
BEGIN 
REAL LINKTsAsLINKPS 


STACK(Fe2) ® LINKT 
STACK(F4#3) = A 
STACKCF 44) = LINKP 

LABEL L3 


LINKTe&STACKHEADCSCRAM) 3 LINKPOELBATEC IJ eL INK; 


IF LINKTSLINKP THEN STACKHEADE SCRAMJ]®TAKECLINKT) «LINK 


ELSE 
LO TF A@TAKECLINKT) eLINK=LINKP 
THEN PUTCCTAKECLINKT) OC TAKECA) C358395913) e+, INKT) 


13319000 
13320000 
13321000 
13322000 
13323000 
13324000 
13325000 
13326000 
13327000 
13328000 
123829000 
13330000 
13331000 
138232000 
13333000 
13333500 
13334000 
413335000 
13336000 
13337000 
13338000 
13339000 
13340000 
13341000 
13341100 
13342000 
13343000 
13344000 
13345000 
13346000 
13347000 
139348000 
13349000 
13350000 
13351000 
13352000 


13353000 
13354000 
13355000 
13356000 
13357000 
12358000 
13359000 


START OF SEGMENT 


13360000 
13361000 
13362000 
13363000 
13364000 
13365000 


Ott tt ts tt Ht A to te st 


Se | 


0472 
0472 
0472 
0472 
O472 
0472 
O475 
Q4a75 
Q475 
0476 
0476 
O477 
0478 
0478 
04860 
0480 
0484 
0484 
0484 
0464 
0485 
0489 
0489 
O49; 
0492 
0492 
0495 
0497 
0499 
O04 
0502 
0905 
0507 
0507 
0507 
0510 


0514 
0°11 
QO511 
0511 
O514 
O11 
O511 


WHAM ERS 


9000 
0000 
0002 
Q005 
0006 
0008 


89 


ELSE BEGIN LINKT*As GO TO L ENDS 
ENOS 


PROCEDURE MAKEUPACCUM3 
BEGIN 
IF PTOG 
THEN GTI*LEVELF ELSE GTIe*LEVELS 


AGCCUM[LOJ® ABSCELBATECI) & KLASSFC284187) & REAL CFORMALF 26934731) 
& REALCVONF)O1084781) & GTICL494385) SADURSF( 16237811) 


) 
ENDS 


PROCEDURE ARRAES 


PRT(664) @ ARRAE 
BEGIN 
INTEGER SAVEINFOS 


STACK(F #2) = SAVEINFO 
LABEL BETA; 
TYPEV*REALARRAYID3 
IF TI¢GTALCJeye1j90 THEN yeue) 
ELSE 
IF Tis2QOWNV THEN 
BEGIN 


P2eTRUESIP SPECTOG THEN 


FLAGC13) 
END 
ELSE 


TYPEV@REALARRAYIO+TI*REALVE 


BETAL!§ ENTER(TYPEV)3 
IF ELCLASSALFTBRKET THEN FLAG(16)3 
IF STEPI®LITNO THEN 
BEGIN 
SAVE INFO*ELBATECIJ¢ADDRESS3 
IF STEPI#RTBRKET THEN FLAG(S3)3 


FILLSTMTCSAVEINFO)3 


SAVEINFOe 3 
ENO 
ELSE 
BEGIN IF ELCLASSFASTRISK THEN FLAG(56)3 
SAVEINFOeLs 
WHILE STEPIZRTBRKET 00 
BEGIN IF ELCLASS*COMMA AND 
STEPIZASTRISK THEN FLAG(56)3 
SAVEINFO*SAVEINFO4) 
ENDSSTEPIT3 


ENO; PUTCTAKE CLASTINFO)&SAVEINFOC27EGOIBIJSLASTINFU)3 
v¢ 13 GTA1COJ] * 0 ; 
IF ELCLASSSCOMMA THEN BEGIN STEPITJGO TO BETA END 


START OF SEGMENT 


13366000 T 0012 
13367000 T 0044 
17 LONG» NEXT SEG 
13368000 T O11 
13369000 y O>11 
13870000 Tt 0511 
13371000 T 0512 
13372000 7 O514 
13373000 T 0517 
13374000 T 0520 
13375000 T 0520 
13376000 T 052) 
13377000 T 0524 
13378000 T O24 
eeexerkekaetkee 
13379000 T 0000 
13380000 T 0000 
13381000 T 0000 
13382000 T 0004 
13383000 T 0005 
13384000 T 0006 
13885000 T 0006 
13386000 T 0007 
13387000 T 0008 
13388000 T 0009 
13389000 7 0009 
13390000 T O01) 
13391000 t 0012 
13392000 7 O014 
13393000 T 0015 
13394000 T 0016 
13395000 T 0017 
13396000 T 0V20 
13397000 T 0020 
12398000 T 0024 
13399000 7 002) 
13400000 T 002) 
13401000 T 0024 
13402000 tT 0024 
13403000 T 0026 
13404000 T 0027 
13405000 T 0029 
13406000 T 0030 
13407000 T 0032 
13408000 T 0032 
13408500 7 0034 
13409000 T 0036 


3 


90 


END ARRAES 


PROCEDURE PUTNBUMP(X)3 


VALUE X3 
REAL Xs 
BEGIN 


INFOCNEXTINFOSLINKR»NEXTINFOOLINKC J¢X3 
NEXTINFO*NEXTINFOS) 
END 3 


PROCEDURE JUMPCHKX3 

COMMENT THIS PROCEQURE IS CALLED AT THE START OF ANY EXECUTABLE CODE 
WHICH THE BLOCK MIGHT EMITelT DETERMINES WHETHER ANY YUMPS 
ARROUND NONEXECUTABLE CODE MAY BE WAITING ANO WHETHER IT 
1S THE FIRST EXECUTABLE CODES 

IF NOT SPECTOG THEN 


BEGIN 
IF AJUMP 
THEN 
BEGIN AD QUST; 
EMIXBCBFWeSAVELeL) 
END ELSE 
IF FIRSTX84095 
THEN 
BEGIN 
ADJUSTS 
FIRSTXeLs 
END3 
AJUMPOFALSE 
END; 


PROCEDURE JUMPCHKNXS 
COMMENT JUMPCHKNX DETERMINES WHETHER ANY EXECUTABLE CODE HAS BEEN 
EMITTED AND IF SO WHETHER IT WAS JUST PREVIOUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED. JF BOTH THEN LIS BUMPED 
AND SAVED FOR A LATER BRANCH} 
IF NOT SPECTOG THEN 
BEGIN 
IF FIRSTX#4095 
THEN 
BEGIN 
IF NOT AJUMP 
THEN 
SAVEL*BUMPL 3 
A JUMP«* TRUE 
ENDS ADJUST 
ENDS 


90 IS 


13410000 


41 LONGs NEXT SEG 


13589000 
13390000 
13391000 
13592000 
13593000 
13594000 
13595000 


13596000 
13897000 
13398000 
13399000 
13600000 
13601000 
13602000 
13603000 
136904000 
13605000 
13606000 
13607000 
13408000 
12609000 
13610000 
13611000 
13612000 
13613000 
13614000 
138615000 


13616000 
13617000 
13618000 
13619000 
12620000 
13621000 
13622000 
13623000 
13624000 
43625000 
138626000 
13627000 
13626000 
13629000 
13630000 
43631000 


T 


| 


SS 


ae tt st 


0038 


0524 
0524 
0521 
O>ai 
0521 
0525 
0525 


0326 
0526 
0526 
0326 
0526 
0326 
0527 
0528 
0328 
0228 
0529 
0330 
0530 
Qo31 
Qa34 
0332 
0532 
Q333 
0333 
0533 


0536 
0536 
0536 
0536 
0536 
0536 
0536 
0537 
0537 
0537 
0538 
0538 
0538 
0544 
0544 
0544 


PRT(665) # PRINT 


PRT(666) =& PRINT 


PRT(667) = OOIT 


PROCEDURE SEGMENTSTARTCSAVECODE 4 VALUE SAVECODESBOOLEAN SAVECODE3 


BEGIN 


STREAM PROCEDURE PRINTCSAVECUDE sADRSFIELIS VALUE SAVECODE»s ADRS 


BEGIN 

LABEL Lis 

DIssFTELs OStes LIT" "% 

SISsFIELS OSt#9 WOSS OL s01"33 

SAVECODECOS#e38 LIT "START OF SAVE SEGMENTS BASE ADDRESS = "3 


JUMP OUT TO L123 ; 
083338 LIT " START OF REL SEGMENTS DISK ADDRESS = "3 


SItsLOC AORS DSts5 DECS 
END PRINTS 


MOVECAsSAVECODEsCODECO) D3 
IF SAVECQDE AND INTOG AND NOT DECKTOG THEN FLAG(57)3 
IF LISTER OR SEGSTOG THEN 


BEGIN 
PRINTCSAVECODEsIF SAVECUDE THEN CORADR ELSE DISKADRs LINE #) 23 
IF NOHEADING THEN DATIMES WRITELINES 


ENDs 
END SEGMENTSTART3 


PROCEDURE SEGMENTCSIZE*FR)S VALUE SIZEsFRS INTEGER SIZE*FRS 
BEGIN 


STREAM PROCEDURE PRINTC(SIZEsFIEL)S VALUE SIZE3 


BEGIN 

DI:sFIELs OStee LIT" "3 

SIUsFIELS DSta14 WOS3 

OTsFO017163 OS826 LIT"SI¢E= %% 

St:sLOc SIZE DSta4 PECs DSt26 LIT" WORDS" 
END PRINT 


STREAM PROCEDURE DOITCCrAsloSoFoW)3 VALUE CoAsF oWi 


BEGIN LOCAL Ni 

Ols#S3 O0StsS LIT" "3 STI#S$ D0St39 WOS3 
DIsaD0T=63 STUBLOC Ws DSte4 DEC; 

Seals STs#ST+1Os0T sel OC NS Ol esD1 +75 DSIsCHRI 


13632000 T 0544 
13632100 T Qn944 
13633000 7 0544 
START OF SEGMENT weettwwwae 
13634000 7 0000 
13633000 7~ 0000 
138636000 T 9000 
13637000 T O00, 
13638000 T 0002 
13639000 T 0008 
13640000 T 0009 
13641000 T O044 
13642000 Tt O04 
13643000 YT 0014 
13651000 T 0014 
13651100 + 90019 
13652000 7 0022 
48652500 7 O024 
13653000 T 0024 
13653500 T 0027 
13654000 T 0039 
13655000 7 0039 
91 IS 40 LONGs NEXT SEG 
13657000 T 0544 
13660000 fT QO2D44 
13661000 T 0244 
START OF SEGMENT eextwtnwwe 
132663000 fT 9000 
13665000 T 0000 
13667000 T O00; 
13668000 T 0002 
13670000 T 0003 
13673000 FT 0004 
13673100 T 0005 
13673150 T 90005 
13673200 T 0005 
43673250 T 0007 
13673300 T 0007 


91 


3 


92 


OIsaSs ST&sLoc Fs SltwSle73 DStacHRs SIte_gc C3 
DSt#3 DECS OSIF4 DECHSI&RLl3 SLseSI+113DSt=N CHR; 
ENQ DOITs 


IF LISTER OR SEGSTOG THEN 


BEGIN 
PRINTCSIZEsLINE*))3 
IF NOHEADING THEN DATIMES WRITELINES 
ENDS 

IF STUFFTOG THEN IF FR>O THEN IF LEVEL>4 THEN 
BEGIN 


KLASSF S83 TAKE CPROINFO) eCLASSS 

IF FR > 1024 THEN FReFR@10243 

DOITCKLASSF es FR» INFOCPROINFOsLINKRsPROINFO.LINKC)>» 
TWXACOJ SAF» SIZE) 

WRITECSTUFFs 102 THXAC#))3 


ENDS 
IF SIZE>SEGSIZEMAX THEN SEGSIZEMAX!taSIZE3 
END SEGMENT 


STREAM PROCEQURE MUVECOVECEDOCs TEDGC Ys 
PRT(670) = MOVECOOE 

BEGIN LOCAL TisT2sT33 
STeceDOCsTi+S]3 
ST*TEDOCsT2eSI3 
STe,ac EBOC3 
$I¢S1433 
Olel.oc 33 
Dleol+¢53 
SKIP 3 DB3 

ISCIF SB THEN OS* 1 SET ELSE pSel RESETSSKIP 1 SB); 
SIe LOC EDOC3 
Ole LOC Te; 
OSe¢ 5 CHR3 
3CIF SB THEN DS*1 SET ELSE DS*1 RESETSSKIP 1 SB)3 
Ole733 
Sle_oc T23 
DSewOS3 
Ole*L aoc 33 
Dlepl+5; 
SKIP 3 0B3 
Sre,oc TEOOCS 
Sles]+33 

1S¢IF SB THEN DSei SET ELSE DS 1 RESETSSKIP 3 SB)3 
Sle LOC FeEDOC3 
Ole LOC T13 
DSe 5 CHR} 

3CIF SB THEN OS¢1 SET ELSE DS*1 RESETSSKIP 1 SB)3 
Ol¢T33 
SIe*_LOC Tis 


92 1S 


13673350 
13673400 
13673450 


13674000 


13674500 
13675000 
13676000 
13677000 
13677100 
13677150 
13677200 
13677250 
13677300 
13677400 
13677500 
13677600 
13678000 
13681000 


47 LUNG 


13683000 


13684000 
13685000 
13686000 
13687000 
13688000 
13689000 
13690000 
13691000 
134992000 
13693000 
13694000 
13695000 
13696000 
13697000 
13698000 
13699000 
13700000 
13701000 
13702000 
13703000 
13704000 
13705000 
13706000 
13707000 
13708000 
13709000 
19710000 
13711000 


44 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


— 


a ma at tt tee 


0009 
0010 
0011 


0012 
0013 
0013 
0015 
0026 
0026 
Q029 
0030 
0032 
0034 
0037 
0039 
0043 
0043 
0045 
NEXT SEG 


0544 


Q544 
0544 
0544 
O545 
0545 
03545 
0545 
0346 
0546 
Q24a 
0548 
0348 
0549 
O554 
0994 
0554 
0554 
0552 
0552 
0552 
0552 
0353 
0555 
0555 
0555 
0555 
0557 
03558 


3 


OSewDS 
END} 


PROCEDURE ENTERCTYPE )3 
VALUE TYPES 
REAL TYPES 


BEGIN 
GeGTAL(CyeJrl13 
IF NOT SPECTOG 
THEN 
BEGIN 
IF NOT P2 
THEN IF P2¢CGROWNV) 
THEN GeGTALlCUeuti is 
IF NOT P3 
THEN IF P3e(GRSAVEY) 
THEN G*GTALCJeyrl) 
ENDS 
IF G40 THEN FLAGC25) ELSE ENTRYCTYPE) 
END; 


PROCEDURE HTTEQAPC(GUTSTORAGE s,RELAD sSTOPPERsPRTAD)3 


PRT¢671) = HTTEQAP 
VALUE GOTSTORAGE sRELAUs STOPPER» PRTAD3 
BOOLEAN GOTSTORAGE3 
REAL RELAD»STOPPERsPRTAD; 
BEGIN 
IF FUNCTOG 
THEN 
BEGIN 
EMITV(513)3 
EMITOCRTN) 
ENO 
ELSE 
EMITOCXIT)3 
CONSTANTCLEAN3 
PURGE(STOPPER)3 


MOVECL,CODECO)sZ)3 PROGDESCBLORCPRIAD,BOULEANCZ) e(L+3)0IV 4ePDES)3 


ENO HTTEOAPS 


PROCEDURE INLINES 


BEGIN 
INTEGER SNeLNePehSeJs BOOLEAN MKSTS 


STACK(F +2) = SN 
STACK(F 43) = LN 
STACKCF44) = P 
STACKCF #5) & LS 


13712000 
13713000 


13714000 
13715000 
13#16000 
13717000 
13738000 
13719000 
13720000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 
13728000 
13729000 
13730000 


137319000 


13732000 
13733000 
13734000 
43735000 
13736000 
13737000 
13738000 
13739000 
13740000 
43741000 
13742000 
13743000 
13744000 
13745000 
13746000 
13747000 


13748000 
13749000 
13750000 


START OF SEGMENT 


Sn Bie oe Rte Been ee Re ee eee ee oe oe oe 


= 


in en i Lee 


4-4 +4 


Q938 
0558 


0958 
0558 
0558 
0958 
0558 
0264 
0561 
0361 
0362 
0562 
0363 
0366 
0366 
0568 
0570 
0371 
0374 


0275 


0375 
0575 
0575 
0375 
0975 
0975 
Q575 
0375 
0576 
03576 
0377 
0277 
0378 
0979 
0379 
02386 


0386 
0386 


0586 
wae 


93 


/ 
STACK(F46) = J 
STACKC(F +7) = MKST 


STACKCF +10) = FLIPFLOP 
INTEGER PN3 


STACKCFel1) = PN 


BOOLEAN FLIPFLOP3 


LABEL Lisl2st3s 


PNeoY 3 


FLIPFLOP*INLINETOGeTRUESP COs MKSTOFALSESLSeLSEMITOCNOP)3 


IF STEPIZLEFTPAREN THEN FLAG(59)3 
IF TABLECT41)=COLON THEN BEGIN STEPITSGO TO L2 END 3 


Lit IF STEPI>IOMAX THEN BEGIN FLAGC465)3 GO TO L2 END 3 ce coema aro 
ACCUMCOJSORPLIGHSTFILIGLOCLIOLS S41 S7IESCRAMC35935113)5 ENTE Ae gms, 
EXIF FLIPFLOP THEN BEGIN FLIPFLOP*FALSESLNG©SN®LASTINFO ENDS int 
IF STEPI®COMMA OR ELCLASSSCOLON OR ELCLASSSRTPAREN 
THEN BEGIN TeJ@2sSTEPIT END 
ELSE IF ELCLASS#ASSIGNOP THEN FLAG(60) ELSE STEPIT3 
AEXP3 . 
L2: IF ELCLASS*COLON THEN 
BEGIN IF MKST THEN FLAG(99)3 MKST*TRUES EMITOCMKS)3 PePe2; 
IF TABLECI#1)4RTPAREN THEN GO TO Lis STEPIT 
sPNEea; 
END ELSE PePe)3 CoutT uP PARAMS WE Hewe sccal 
IF ELCLASSSCOMMA THEN GO TU Lis 
IF ELCLASSARTPAREN THEN FLAGC64)3 
If NOT MKST THEN 
BEGIN JeLsLeLSJEMITOCMKS)sL ey ENDS 
IF STEPI # SEMICOLON THEN FLAG(62)3 
EMITO(584)3 
L3tELBATCIJ©TAKECSN)S SCATTEREL BATS ADDRSFeP*ADDRSFS 
PUTCELBATCI J&ADORSFC16937814 JASTACKHEADLLINKF 9033333915) ,SN)3 
STACKHEADCLINKFJ@©SN3 SN#SN*INCRE3 
IF ADORSF¥PN THEN GO TO L3 3 
INLINETOG* FALSES 
PNeNEXTINF OS 
STREAMTOG*TRUESSTREAMWOROSZIF STEPIZBEGINV THEN STREAMSTMT 
ELSE BEGIN STEPITSCOMPOUNDTAIL END; 
STREAMTOG*FAL SES PURGECPN)$ STREAMWORDSSPURGECLN)SEMITLO16)3 
END INLINES 
93 1S 


COMMENT THIS SECTION CONTAINS THE BLOCK ROUTINE 3 
PROCEDURE BLOCKCSOP)3 


VALUE SOP3 
BOOLEAN SOP} 


COMMENT SOP IS TRUE IF THE BLOCK WAS CALLED BY ITSELF THROUGH THE 


PROCEDURE DECLARATION@OTHERWISE IT WAS CALLEO BY STATEMENT. 
THE BLOCK ROUTINE IS RESPONSIBLE FOR HANDLING THE BLOCK 
STRUCTURE OF AN ALGOL PRUGRAM@SEGMENTING EACH BLOCKs HANDLING 


13750500 
13750600 


13751000 
13751100 
13752000 
13753000 
13753100 
13754000 
13755000 
18755500 
13756000 
13757000 
13758000 
18759000 
13760000 
13761000 
13761100 
13761110 
13%61200 
13762000 
13763000 
13764000 
13765000 
13766000 
137661400 


13766200 


13766300 
13788300 
13767000 
13768000 
13769000 
13770000 
13770500 
13770600 
13771000 
13772000 
13773000 
13773500 
13774000 


76 LONG 


14000000 
44001000 
14002000 
14003000 
14004000 
14005000 
14006000 
14007000 


SH tt Ht ot tt a tt se 


| 


0000 
0000 


0000 
0000 
0000 
0005 
0007 
0010 
0013 
0018 
0024 
0023 
0026 
0030 
0030 
0031 
0036 
0038 
0040 
O04, 
0043 
0045 
Q045 
0049 
0051 
0052 
0052 
0052 
0052 
0052 
0055 
0058 
0061 
0062 
0063 
0063 
0066 
0068 
0072 
0072 
NEXT SEG 


0286 
0386 
0586 
0386 
0586 
0586 
0386 
0586 


3 


ALL DECLARATIONS*DOING NECESSARY BOOKKEEPING REGARDING EACH 


BLOCKs AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 


ABOUT DECLARED IDENTIFIERS, 
IT ALSO WRITES EACH SEGMENT ONTQ THE PCTS 
BEGIN 
LABEL OWNERR» SAVERR » BOOLEANDEC »REALDEC,ALPHADECsINTEGERDEC, 


LABELDECsDUMPDEC»s SUBDEC »OUTDEC» INDEC»MONITORDECS 
SWI TCHDEC » PROCEOUREDEC» ARRAYDEC »NAMEDECoFILEDEC, 
GOTSCHKs 
STREAMERR* DEF INEDEC oCALLSTATEMENT#HF » STARTS 
SWITCH DECLSW * OWNERR» SAVERRs BOOLEANDECs REAL DEC, INTEGERDECs ALPHADEC, 
LABEL DEC» DUMPOECs SUBDECs OUTDECs INDEC» MONI TORDECs 
SWI TCHDEC sPROCEQUREDECs ARRAYDEC »NAMEDECsFILEDEC® 
STREAMERR» DEF INEDECS 
DEFINE NLOCS#10#»sLOCBEGIN#PRTI#> 
LBP=(36812)4> 
SPACEITDOWN # BEGIN WRITECLEINECOBL)) 


WRITECLINECOBLJ)3 ENO#3 


BOOLEAN GOTSTORAGES 


STACKCF 42) = GOTSTORAGE 
INTEGER PINFOOsBLKAD3 
STACK(F 43) & PINFOO 
STACK(F 44) = BLKAD 
COMMENT JOCAL TO BLOCK TO SAVE WHERE A PROCEOURE IS EMTERED 
IN INFOS 

REAL MAXSTACKOs,LASTINFOTsRELADsLOsTSUBLEVEL s STACKCTROS 
STACK(F 45S) = MAXSTACKO 
STACK(F 46) 3 LASTINFOT 
STACK(Fe7) = RELAD 
STACK(F410) ® LO 
STACKCF ell) = TSUBLEVEL 
STACK(F +12) = STACKCTRO 

INTEGER SGNOOsLOLDsSAVELOsPRTIOsNINF OOS 
STACK( F413) & SGNOO 
STACKCF +14) ® LOLD 
STACK(F 4153) * SAVELO 
STACKC( F416) = PRTIC 
STACKCF4el7) & NINFOO 

INTEGER NCIIQ3 
STACK(F +20) & NCIIO 
INTEGER PROAD 3 
STACK(Fe21) = PROAD 
INTEGER FIRSTXUS 

STACK(Fe22) 3 FIRSTXO 

BOOLEAN FUNCTOGOsAJUMPO3 
STACK(F +23) = FUNCTOGO 
STACK(F 424) & AYJUMPO 

BEGINCTReBEGINCTRe43 
IF SOP 


THEN BEGIN BLKAD*PROADOS 
IF LASTENTRY 2 0 
THEN BEGIN GTI*BUMPL? 
CONSTANTCLEANS 
EMITBCBFWsGT1sL) 
END 
END 


START OF 


14008000 
14009000 
14010000 
14011000 
14012000 
14013000 

SEGMENT 
14014000 
14015000 
14016000 
14017000 
14018000 
14019000 
44020000 
14021000 
14022000 
14023000 
14023100 
14024000 
146025000 


14026000 


14027000 
14028000 
14029000 


14030000 


14031000 
14032000 
44033000 
14034000 


14035000 
14036000 
14037000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 


a at at at a tt tt 


i) 


4 + + + 


+4 tt tt 


0586 
0386 
0586 
0386 
0586 
0386 


weet henhe | 


0000 


0000 
0000 
0000 
0000 
0002 
0002. 
0002 
0012 
0012 
0012 
ooL2 
0012 


0012 


0012 
0012 
Q012 


0012 


0012 
Q012 
0012 
0012 


0012 
0014 
O014 
0015 
0016 
0018 
0019 
0020 
0020 


ELSE BEGIN BLKADt*GETSPACEC(TRUE*"6)3 &% SEG. DESCR, 


END3 

FIRSTXOeFIRSTX3 
FIRSTX¢03 
LEVEL@LEVEL 413 


LOLDeL J FUNCTOGOD*FUNCTOG3 AVUMPOSAJUMPSPRTJOePRTI3 SGNOO*SGNO3 
SAVELOSSAVELSAJUMPOFALSES LeOsJNINFOOONEXTINFOS 

NCIIOeNCII3 

NCII¢03 

STACKCTROGSTACKCTR3 


ELBATE TI eCLASS¢SEMICOLON; 
START: IF TABLECT)IFSEMICOLON 
THEN 
BEGIN 
FLAG(O)3 
Ie]*4 


ENDS 
GTALILOJe Jes 
IF SPECTOG 
THEN 
BEGIN 
IF BUP#PY 
THEN 
BEGIN 
BEGIN LABEL GETLP3 
PRTC672) = *SEGMENT DESCRIPTOR*® 


IF STREAMTQG THEN FeO ELSE 
FeFZERO3 
BUPeLASTINFOS 
00 
BEGIN 
IF NOT STREAMTOG THEN 
BUPOLASTINFOS 
GETLP! GeTAKECBUP)3 
IF KeG,ADDRESS# PY 


THEN 
BEGIN 
IF ByP # BUPSSBUP® TAKECBUP # 1).PURPT THEN 
GO TO GETLP 
END; 
TYPEVeG CLASS 
GeADDRESS¢Fer +13 
PUTCGeBUP)3 GeINCReGTis 
PUT (Gs MARKSPY ) 
SBUP+BUP* TAKE (BUP 41), PURPT 
END 
UNTIL PJePy91s0 
ENDS 


PRT(673) @ *SEGMENT DESCRIPTOR®« 


14044000 
14045000 
14046000 
14047000 
44048000 
14049000 
14050000 
44051000 
14052000 
14053000 
14054000 
44055000 
14056000 
14057000 
14058000 
14059000 
14061000 
14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
44069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 


START OF SEGMENT 


14077000 
44076000 
14079000 
14080000 
14083000 
14082000 
14083000 
14084000 
14085000 
14086000 
14087000 
14088000 
14069000 
14090000 
14091000 
14415000 
14116000 
14117000 
14118000 
14119000 
14120000 
14121000 


aa a a te me ast i 


waa 


AHHH tO Ht st st 


0020 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0023 
0024 
0025 
0029 
003e 
0033 
0033 
Q034 
0034 
0034 
0037 
0037 
0038 
0038 
0039 
0039 
0040 
0042 
Q04@ 
0042 
0043 
0043 
0044 
0044 


0000 
0001 
0002 
0003 
0004 
Q004 
0004 
0005 
0007 
0008 
Q009 
0009 
0012 
0012 
0013 
0014 
0017 
0020 
0020 
0023 
0024 
0025 


SPECTOG#FALSES 
GO TQ HF 
END 
END; 
STACKCT © O03 
WHILE STEPI®DECLARATORS 
aye) 


BEGIN 
GTALCUSUFLIOELBATCIJ sADDRESS; 
STOPDEF INE*¢ERRORTOGeTRYES 
ENDS 
IF 9 50 THEN GO TO CALLSTATEMENTS 
P2¢P3eFALSE3 
GO TO DECLSW(GTAICYI)3 
OWNERREFLAG(20)3 JeU4i3G0 TO REALDEC3 
SAVERRIFLAGC 2123 JeJ*13G0 TO REALVECS 
STREAMERRS IF ELCLASS = LEFTPAREN THEN 
BEGIN 
Ted. 13 
GO TO CALLSTATEMENTS 
END3 
FLAG(C22)3 
J @ J + 13 
GO TU PROCEDUREDEC3 
REAL DEC :P3¢TRUESENTERCREALIO)3GO TO STARTS 
ALPHADECIP3eTRUEJENTERCALFAIO)3GU TO START 
BOOLEANDECSP3¢TRUESENTERCBOGIDI3GQ TO START 
INTEGERDECSP3I*¢TRUEJENTERCINTIDNISGO TO STARTS 
MONIZORDECIIF SPECTOG 
THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 
DECLARATION APPEARS IN THE SPECIFICATION 
PART OF A PROCEDURE; 
FLAG(463)3 


ENDS 
OQ UNTIL FALSE 
DUMPDECSIF SPECTOG 
THEN BEGIN COMMENT ERROR 464 MEANS A DUMP DECLARATION 
APPEARS IN THE SPECIFICATION PART OF A 
PROCEDURE; 
FLAG(464)3 
END3 
O00 UNTIL FALSES 
ARRAYDEC!S ARRAE GO TO START} 
FILEDEC: INDEC! QUTDEC! 
GOTSCHK sSGOTSTORAGE* NOT SPECTOG UR GOTSTORAGESGO TO START3 
NAMEDEC! IF TLeGTALlLJeJ@LIZARRAYV THEN Jeueds 


TYPE VeNAMEIOS 
IF TLeGTALCJes719790 THEN yeJel 
ELSE 
TP EN ONY 
BEGIN 
P2¢TRUES IF SPECTOG THEN 
FLAGCO13) 
END 


ELSE 


Be Be BE DE DE BE DE BE 


AAOWAABWA 


95 7S 


27 LONGs 
14122000 
14123000 
14124000 
14125000 
14125500 
14126000 
14127000 
14128000 
14129000 
14130000 
44131000 
14132000 
14133000 
14134000 
14135000 
14136000 
14137000 
14137100 
14137200 
14137300 
14137400 
14137500 
14137600 
14137700 
14138000 
14139000 
14140000 
44141000 
141442000 
14143000 
141444000 
14143000 
14146000 
14147000 
14148000 
14149000 
14150000 
14151000 
14152000 
14153000 
14154000 
14155000 
14156000 
441568000 
14160000 
14161000 
14161010 
14161020 
14161030 


16181888 


14161060 
14161070 
14161080 
14161090 
14161100 


at a HH tt st tt tt A A a He ae oe 


NEXT SEG 
0045 
0045 
0046 
0046 
0046 
0047 
0047 
0048 
0048 
0051 
0052 
0053 
0054 
0055 
0058 
0060 
0063 
0064 
Q065 
0066 
0067 
0067 
0067 
0069 
0069 
0072 
0074 
0076 
0078 
0078 
0078 
0078 
0078 
Q079 
0079 
0080 
QO081 
0084 
0064 
0084 
0082 
0082 
00863 
Q085 
0085 
0087 
0094 
0092 
0095 


8339 


0097 
0098 
0099 
0099 
0100 


94 


TYPEV¢NAMEID*+TI*REALVS 
ENTER(TYPEV)3 GO TO STARTS 
SUBDEC! 
BEGIN REAL TYPEV>T3 
PRT(674) = *SEGMENT DESCRIPTOR 


STACK(F 425) # TYPEV 
STACK(F 426) 3 T 
IF GTALCJeue1J=REALV THEN TYPEV*REALSUBID ELSE TYPEVeSUBIDS 
STOPGSP+TRVES 
JUMPCHKNXSENTRYCTYPEVIZIF ELCLASSASEMICOLON THEN FLAG(S7)3 
STOPGSPeFALSES 
STEPITS 
TeNEXTINFOS 
PUTNBUMP(L)3 STMTS EMITOCLFU)3 IF TYPEVSREALSUBID THEN 
IF GETCL9224533 THEN FLAG(S8)SPUTCTAKECT &LCEGt3Otl2)eT)s 
CONSTANTCLEANS 


ENDS 
PRTC675) & *SEGMENT DESCRIPTOR* 


GO TO STARTS 


LABELDECSIF SPECTOG AND FUNCTOG THEN FLAG(24)3 
STOPENTRY*STOPGSPeTRUES 
Teyn13 
DQ 


BEGIN 
STOPOLFINE*TRUES 
STEPITS 
ENTRYCLABELID)3 
PUTNBUMP(0) 
END 
UNTIL ELCLASS#COMMA; 
STOPENTRY ¢STOPGSPeFALSES 
GQ TO STARTs 
SWITCHDEC? 
BEGIN 
LABEL STARTS 
PRT(676) ™ *SEGMENT DESCRIMTOR# 


INTEGER GT19GT2sGT4sGT53 


1416011410 
14161120 
14162000 
14163000 
14163500 


START OF SEGMENT 


96 IS 


14164000 
14164500 
14165000 
14166 

14166000 
14166300 
14167000 
14168000 
14168500 
14169000 


44a 4 


0100 
0100 
0102 
0103 
0104 


KK A Rk 


ee 


21 LONG» 


44170000 
14171000 
44172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
44184000 
£4185000 
14186000 
14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14196000 
14197000 
14198000 
14199000 
14200000 
14201000 
14802000 


START OF SEGMENT 


14203000 


et a st ss tt a 


0000 
0004 
0005 
0008 
0009 
0009 
0010 
0033 
0019 
0019 


NEXT SEG 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0105 
0108 
0109 
0110 
Ol14 
O1i1 
Olly 
Oll2 
01143 
0413 
0113 
0115 
0116 
0116 
0117 
0117 


aReAKEHR ARES 


T 


0000 


96 


94 


97 


STACK(F +25) = GT1 
STACK(Fe26) = GT2 
STACK(CF 427) = GT4 
STACK(F 430) 2 GT5 


BOOLEAN T6135 


STOPENTRY#NOT SPECTOGS STOPGSPeTRUES 

SCATTERELBATS GT1¢03 TBLSFALSE; 
ENTRY¥CSWITCHIQ)3 

GT2*NEXTINFOS PUTNBUMPC(O)3 
ole) 
BEGIN 
IF STEPIFLABELIO OR ELBATOCIJeL VLZLEVEL THEN FLAG(63)3 

PUTNBUMPCELBATCIJsGT1«GTi+l 


END 
COMMENT 
UNTIL STEPIZCOMMAS 


STACK(F 431) 3 Tel 


PUTCGTLeGT2)4 
STOPENTRY # STOPGSP © FALSES 
END SwITCHDECs 
PRT(677) © *SEGMENT DESCRIPTOR* 


GO TO START} 
DEFINEDEC: 
BEGIN LABEL START; 
PRTC700) = *SEGMENT DESCRIPTOR* 


REAL JsK3 
STACK(F425) @ J 
STACK(F 426) = K 
BOOLEAN STREAM PROCEDURE PARM(SeDeKeoJ23 VALUE Kaus 
PRT(701) = PARM 
BEGIN SleSsSTeST+23 DleVs 01 ed] +23 
IF K S$C#¥DC THEN TALLYe(13 
DIeLOC JID] DI +73 
IF SC#0C THEN TALLY]; 
PARM¢TALLY3 
END3 


STOPENTRY*STOPGSPeTRUES eI e433 


00 
BEGIN 
STOPDEFINE*TRUES 
STEPITS MOVEC9*#ACCUMEC1J*GTAL)3 
KeCOUNT#13 JeGTAICO)S ENTRYCOEFINEDIDD: 
GTALLOJeJe"100000"% Yes 
Md rh ae a OR ELCLASS#LFTBRKET THEN 
EGIN 
DO BEGIN STOPOEFINE*TRUE3 
STEPITS 
IF (J#J#1)>9 OR PARMCACCUMEY )sGTALeKsJ) OR 


K>62 THEN BEGIN ERRC141)!4 GO TO START END} 


STOPOEFINE*TRUES 


14204000 T 0000 
14205000 T 0000 
14206000 7 Q0014 
18207000 fT 0003 
14217000 ry Q004 
14218000 7 0006 
14219000 T 90006 
14220000 T 0006 
14221000 Tt 0010 
14222000 T OO0O11 
14222500 Yr 0012 
14223000 T ON12 
14223500 r 0013 
14224000 T 0013 
14251000 fT O04 
14252000 T 0016 
97 IS 17 LONGs NEXT SEG 
14253000 rt 0118 
14254000 fT 90118 
14254050 fT O119 
START OF SEGMENT t#¥eWiwwee 
14254100 rt 0000 
14254200 T 0000 
14254300 fF 90000 
14854400 YT 0004 
14854500 1 0002 
14254600 T 0002 
14254700 T 0003 
14254800 T 0003 
44255000 T 0004 
14256000 T 0QUv07 
14257000 fT 0008 
14458000 Tr 0008 
14259000 Tf 0008 
14259010 T OO14 
44259015 T QU14 
14259020 Y 0016 
14259030 T 0016 
14859060 7 0018 
14259070 ~ 0OQ19 
14259080 T Q020 
14259090 7 0024 
14259100 7 0029 


94 


98 


END UNTIL STEPIZCOMMA; 
IF ELCLASSARTPAREN AND ELCLASS#RTBRKET THEN ERR(141)3 
STOPDEFINE*TRUES 
STEPIT3 
PUTCTAKECLASTINFO)GUC16837511 JsLASTING ODS 
ENO3 
IF ELCLASS#RELOP 
THEN 
BEGIN 
FLAG(30)3 
lelea3 
ENDS 
MACROIDeYRUE3 
DEFINEGENCFALSEsu)3 
MACROIDeFALSE; 
END 
UNTIL STEPI*CQMMA; 
START! STOPENTRY#STOPGSPeFALSES 
PRT(702) ® *SEGMENT DESCRIPTOR« 


ENDS GO TO START 


PROCEDUREDEC? 
BEGIN 
LABEL STARTs#STARTL3 
PRT(703) = *SEGMENT DESCRIPTOR* 


LABEL START2s 
BOOLEAN FWOTOGS COMMENT THIS TOGGLE IS THE FORWARD DEC INDICATOR; 
STACK(F +25) & FWOTOG 
IF NOT SPECTOG THEN FUNCTOG*FALSE3 
FWOTOG*FALSE 3 
MAXSTACKQe MAXSTACKS 
IF GeGTALC Jeu" ZI RSTREAMV 
THEN 
BEGIN STREAMTUGeTRUE3 
IF GeGTalldeJ"1)40 THEN TYPEV*STRPROCID 
ELSE 
BEGIN 
IF TYPEVePROCID *G>aINTSTRPROCIO OR 
TYPEV <pOOSTRPROCID 
THEN FLAG(O04)3 
IF NOT SPECTOG THEN 


FUNC TOGeTRUE 3 
CHKSOB 

End END 

ELSE 


IF G=SAVEV OR G*O THEN TYPEVePROCID 


ELSE 
IF TYPEV*REALSTRPROCIO*G<BOOPROCID OR TYPEVAINTPROCID 
THEN FLAG(005) 
ELSE BEGIN FUNCTOGeTRUESG+GTALCUeVe1)3 
END; 
IF NOT STREAMTOG THEN SEGMENTSTART(GRSAVEV)3 
SAF © GRSAVEVS 


14259110 
14259120 
14359130 
44259140 
14259150 
148259160 
14260000 
14261000 
14262000 
14263000 
44264000 
14265000 
14265900 
14266000 
14266100 
14267000 
1428268000 
14269000 


Ot tt a tt a ts se tS 


98 IS 48 LONGs 

T 
14270000 T 
14271000 T 
14272000 T 


START OF SEGMENT 
14273000 
14274000 


44275000 
14276000 
14277000 
14278000 
14279000 
14280000 
14281000 
14262000 
14283000 
14284000 
14285000 
14286000 
14287000 
14288000 
14289000 
14290000 
14291000 
14292000 
14293000 
14294000 
14295000 
14296000 
14297000 
14298000 
14299000 
19300000 
44301000 
14302000 


At Host HH tH tt a ot ot st ws 


0029 
00314 
0034 
0035 
0035 
0038 
0038 
0038 
0038 
0039 
0040 
0044 
0044 
0042 
0043 
0043 
0043 
0045 


NEXT SEG 
0120 
0120 
Ol2i 
Olet 


ANNEKRE REE 


0000 
0000 


0000 
0004 
0002 
0003 
0005 
0005 
0007 
0010 
0010 
0014 
0013 
0013 
0015 
0015 
0017 
0017 
0017 
0017 
0020 
0021 
0023 
0028 
0028 
0028 
0034 
0032 
0032 
0032 


94 


99 


MODE *MODE 13 
LOePROINFO3 
SCATTERELBAT3 
COMMENT CHECK TQ SEE IF DECLARED FORWARD PREVIOUSLY 
IF LEVELFSLEVEL 
THEN 
BEGIN 
IF GeTAKECLINKF +41 )20 
THEN FLAG(006)3 
FWOTOG*TRUES 
PROAD¢ADDRSF 3 
PROINFOCELBATCI JS MARKeLINKF+INCRESSTEPIT 
BPUTC@GaL INKF od 3 
END 
ELSE 
BEGIN STOPENTRY¢TRUEZ P2«TRUES 
STOPGSP*LEVEL>1 AND STREAMTOG3 
ENTRYCTYPEV)3 MARKeNEXTINFOSPUTNBUMP(O)3 
STOPGSPeFALSE3 
PROINFO*TAKECLASTINFO)& LASTINFOC35335413)5PROAD¢ADDRSEF3S 
P2¢STOPENTRY*FALSE 
ENDS 
PJ©O} LEVEL*LEVEL +13 
IF STREAMTOG THEN STREAMWORDS} 
IF ELCLASS®SEMICOLON THEN GO TO START3 
IF ELCLASSSLEFTPAREN THEN FLAG(007)3 
COMMENT! THE FOLLOWING 8 STATEMENTS FOOL THE SCANNER AND BLOCKsPUTTING 
FORMAL PARAMETER ENTRIES IN THE ZERO ROW OF INFQS 


RRL*NEXTINFQO3 
LASTINFOT¢LASTINFOS LASTINFO*NEXTINF OOS} 
PUTNBUMP(O)3 
PTOG*TRUES Te]+13 
ENTRYCSECRET)3 
IF FWOTOG THEN 
BEGIN 


IF GTISSTAKECMARK),[4088) # PY THEN FLAG(48)5 %& WRONG 
% NUMBER OF PARAMETERS. we DON"T WANT TQ CLOBBER INFO, 


END 
ELSE 
PUTCPUsMARK)3 
PePJ3 


IF ELCLASSZRTPAREN 
THEN FLAG(O08)3 
IF STEPIZSEMICOLON 
THEN FLAG(O09)3 
COMMENT MARK PARAMETERS VALUE IF THERE IS A VALUE PART 
IF STEPISVALUEV 
THEN 
BEGIN 


DO 
IF STEPTASECRET 
THEN FLAG(010) 


ELSE 
BEGIN 
IF GeELBATECIJ¢ADDRESS#0 OR G>Py 
THEN 


FLAGCO10)3 


14303000 


14304000 
14305000 
14306000 
14307000 
14308000 
14309000 
14310000 
14911000 
14312000 
14313000 
14314000 
14315000 
14316000 
14317000 
14318000 
14318500 
14319000 
14319500 
14320000 
14321000 
14322000 
14323000 
14324000 
14825000 
14320000 
14327000 
14828000 
14329000 
14330000 
14331000 
14332000 
14333000 
14333100 
14333200 
14333300 
14333400 
14833500 
14333600 
14334000 
44335000 
14336000 
14337000 
14338000 
14339000 
14340000 
14341000 
14342000 
14343000 
14344000 
14845000 
14346000 
14847000 
16848000 
14349000 
14350000 
14351000 


AAA NA Ht tt Ht tt tt tt ttt tt vt ttt a a a oe 


0032 
0033 
0034 
QQ34 
0034 
0035 
0035 
0036 
QQ37 
0039 
0040 
0044 
0043 
0045 
0045 
004s 
QQ047 
Q0g49 
0054 
0052 
0055 
0055 
0056 
0058 
0059 
0064 
0063 
0063 
0063 
0063 
0065 
0066 
0068 
0069 
0069 
0070 
0073 
0073 
0073 
0073 
0075 
0075 
0076 
0077 
0078 
0080 
0080 
0080 
0084 
0084 
0082 
0082 
0083 
QO084 
0084 
0087 
0087 


G*TAKECELBATCII)3 
PUTCGS1C1084791 rELBATCII) 
ENQ 
UNTIL 
STEPIZCOMMAS 
IF ELCLASSZSEMICULON 
THEN FLAGCO11) 
ELSE STEPIT 
ENDS IeInis 
TF STREAMTOG 


THEN 
BEGIN 
BUP@P J SPECTOG*TRUESGO TO START 
END 
ELSE 
BEGIN 
SPECTOG¢TRUES 
BUP«eQ3 


IF ELCLASSFDECLARATORS 
THEN FLAG(O12) 


END3 
START IPTOGeFALSESLASTINFO*LASTINFOTSNEXTINFOCIF FWOTOG THEN RR1 ELSE 
MARK ePJo13 
STARTISPINFQO@NEXTINFOS 
START2! END) 
PRT¢704) ® *SEGMENT DESCRIPTOR* 


IF SPECTOG OR STREAMTOG 
THEN 
GO TO STARTS 
COMMENT IF SPECTOG 1S ON THEN THE BLOCK WILL PROCESS THE SPECIFICATION 
PART SIMILARY TO DECLARATIONS WITH A FEW NECESSARY VARIATIONS? 
HFS 
BEGIN 
LABEL STARTsSTUPS 
PRT(705) © *SEGMENT DESCRIPTOR« 


DEFINE TESTLEV & LEVEL?@2 #3 
IF STREAMTQG 
THEN BEGIN 
IF TESTLEV THEN JUMPCHKNX ELSE SEGMENTSTARTC TRUE SPOR; 


PTOG*FALSES 
PUTCTAKECGITCPROINFO) Q@LC28836812]+G1TCPROINFU))3 


IF TESTLEV THEN BEGIN EMsT0(584)3 END? 
IF STEPISBEGINV 
THEN 
BEGIN 
WHILE STEPI®DECLARATORS OR ELCLASS@LOCALYV 
00 
BEGIN 
IF ELBATCIJ¢ADDRESS=LABELV 
THEN 


BEGIN 
STOPOEF INE*STOPGSP+STUPENTRY*TRUES 


DQ BEGIN STOPDEFINE*TRUESSTEPITSENTRYCSTLABID)SPUTNBUMP(O) END UNTIL 


ELCLASSZCOMMASSTOPGSP+STOPENTRY*FALSE 
ENO 


14352000 T 0089 
14353000 Tt 90090 
14354000 T QQ090a 
14355000 T Q090a 
14356000 T 0U92 
14357000 YT 0094 
14358000 7 0094 
14359000 Tt 0095 
14360000 fT 0096 
14361000 T 0098 
14362000 T 0098 
14363000 7 Q098 
14364000 Tt 0099 
44865000 T Q104 
14366000 T 0101 
14367000 T 0101 
14368000 T 9104 
14369000 T 0402 
14370000 7 0403 
14371000 YT Q403 
14372000 T 0104 
14373000 T O108 
143874000 tT 9109 
14375000 T QO110 
14376000 TT O11 
99 IS 413 LONGs NEXT SEG 
14377000 T Q122 
14378000 tT OQOl22 
14379000 T Q122 
10380000 T 0123 
14381000 T 0123 
14382000 T 0123 
14383000 T 0124 
14384000 T Q124 
START OF SEGMENT weetteaene 
14384100 Ff 0OQ000 
14385000 y 90000 
14886000 T 9Q000 
14387000 7 9000 
14388000 Tt Q004 
14388100 YT 0005 
14389000 7 9Q00@8 
14393000 T OQ10 
14394000 t 0044 
14395000 T O0%4 
14396000 T O0%@ 
143897000 T O014 
143898000 T O015 
14399000 T 90015 
14400000 T O016 
144601000 7 0017 
14402000 T 0017 
14403000 7 9O019 
14404000 Y 0022 
14405000 T 0024 


94 


100 


ELSE 14406000 Tt 0025 

BEGIN 14407000 T v025 

Tel+13 14408000 fT 0025 

ENTRYCLOCLID) 14409000 T 0027 

END 14410000 7 0027 

END3 14411000 Tt O27 

IF FUNCTOG THEN 14411100 Tt 0028 
PUTCCE*TAKECPROINFU) &LOCLIOC2]341397]7 & 14411200 7 0028 
CPUSSHREALCTESTLEV) CIOS 37843 J¢FROINFODS 14411300 T 0034 

COMPOUNDTAIL 14412000 fT OU34 

END 14443000 T 0034 

ELSE 14414000 7 0035 

BEGIN 144315000 7F 90035 
IF FUNCTOG THEN 14445100 fT 0035 
PUTCC ZeTAKECPROINFO))& LOCLIOC2#4137)4 14415200 T 0035 
CPU+2+REALCTESTLEV) 2616337211} »PROINFO)DS 444145300 T 0038 

STREAMSTMT 3S 144135400 7 0044 
END; 14435500 T 9042 
COMMENT THE FOLLOWING BLOCK CONSTITUTES THE STREAM PROCEDURE PURGE} 14416000 Tt 90042 
BEGIN 14417000 7 OQ42 
REAL NLOCaNLABS 14418000 fF 0042 


PRT€706) = *SEGMENT DESCRIPTOR*« 

START OF SEGMENT weeeewweee 10) 
STACKCF #25) = NLOC 
STACK(Fe26) = NLAB 


DEFINE SES®1B#sSEDe6b> THWS5 8} 14419000 T 0000 
DEFINE LOC#(36812)#,L ASTGTelesri2j)#; 14420000 T Q000 
Je LASTINFOS 14421000 T 0000 
NLOC*NLABeO) 14422000 T 0000 

00 14423000 7 0002 
BEGIN 14424000 T 0002 
IFCGTL* TAKE CJ) eCLASS@LUCLIO THEN 14425000 T 0002 
BEGIN 14426000 7 0004 

IF BOOLEANCGT1 FORMAL) THEN 14427000 T QO004 
BEGIN 14428000 7 0005 

IF GT1<0 THEN 14429000 Tt 0006 

PUTC TAKE CGT2¢MARK+P@GT1,ADDRESS#1 OFILELOC 284137) 14430000 Tt 0006 

eGT2)3 14431000 T OO11 

END 14432000 T OUl2 

ELSE NLOCeNLOCS13 14433000 7 0012 

END 14434000 T 0014 

ELSE 14435000 7 0014 
BEGIN 14436000 TF 0014 

IF GTiL,AVDRESS#40 THEN NLABeNLABSLS 14437000 T 0014 
IFCGTI*TAKECGITCJ)22¢LASTGT#FO AND GT3,L0C 30 THEN 14438000 Tt 0017 
BEGIN 14439000 T Q024 
MOVECDeINFOLO* UJ sACCUMLOI DS 14440000 T 0022 
GeaACCUM(LI3 144461000 T O024 
FLAG(267)3 14442000 T 0025 
ERRORTOGeTRUES 14443000 7 0026 

END3 44444000 ~ 0027 

ENDS 44445000 Y 0027 

Ge (GT2¢TAKEC J+1)).PURPTS 14446000 Tt 0027 
IF GT1e0288) # STLABIOX2¢1 THEN 14447000 Tt 0030 
STACKHEADCCORGT2C 12442836) MOD L25J@TAKEC UI eLINKS 14448000 7 0032 

END UNTIL veJ*Gsy3 . 44449000 T 0036 
14450000 T 0038 


IF 


TESTLEV 


IF FUNCTOG THEN 
PUTC(Z» PRUINFQ)3 
STREAMWORDS3 

STREAMTOG¢FALSES 


IF NOT TESTLEV THEN BEGIN PROGDESCBLDR(PROADsTRUES(L+3)01V 4eCHAR)S 
SEGMENTCCL*#320IV Gs PROINFUsADDRESS)3 


ENO} 
PRT(707) © *SEGMENT DESCRIPTOR 


© 


END3 
IF LISTER AND FORMATOG THEN SPACEITOOWNS 


EMITCO)S 


THEN BEGIN EMITC(C120)5 EMITOCBFW) END 
ELSE 
PUTCTAKECMARKISNLOCCAS4S ORL C168 3681 21GPL4O84OS BI »sMARK)3 


RIGHTCLI3 LeQs 


LASTINFOSLASTINFOTANEXTINFOCMARK+P 41 3 


END 
ELSE 
BEGIN 
IF STEPISFQRWARDV 
THEN 
BEGIN 
PUT¢C*TAKECG@PROINFO,LINK#1 )0G)3 
PURGECPINFQOQ); 
STEPIT 
END 
ELSE 
BEGIN 
PROADQePROADS 


TSUBLEVEL@SUBLEVELSSUBLEVELeLEVEL SSTACKCTRUGSTACKCTRI 
IF MODE=1 THEN FRSTLEVEL@LEVELSSTACKCTRE5134REALCFUNCTOG)3 


IF ELCLASS = BEGINV THEN 


BEGIN 


FLAGCOS2)3 


CALLINFO* (CALL XeCALL X44) 443 
NESTCTReSTACKCTR3 

BLOGKC TRUE) 
3 PURGECPINFOG); 


IF NESTOG THEN 


BEGIN GTL©TAKECPROINFO) «ADDRESS; 


ENDS 


NESTPRICGT1©ORPROINFOC3SPS581 3 IECALLINFOC22335%43)3 
GCALLOCALLINFO™L JC TAKECGITCPROINFU) )+NESTCTR*S11)4 


CALLX(22535313); 


#93 
GO TO STOP END; 
BEGIN 


STMT3 


STOPs 


RELADeL 


; 


HTTEOAPCFALSE sRELADsPINFOOsPROAD )3 
ENQ3 


SUBLEVELeTSUBLEVELJ 
STACKCTReSTACKCTRO; 
IF LISTER AND FORMATOG THEN SPACEITDOWNS 


END3 
END3 


191 15 


14451000 
14451100 
14451200 
14452000 
14457000 
14460000 
14461000 
14463100 
14461200 
14461300 
14461400 
14461500 
14462000 


ee Le) 


69 LONG» 
14463000 T 
14464000 
14465000 
14466000 
14467000 
14468000 
14469000 
14470000 
14471000 
14472000 
14473000 
14474000 
16475000 
14476000 
14477000 
14478000 
14479000 
14481000 
14481100 
14481200 
14482000 
14483000 
14483100 
14483200 
14483300 
14483400 
14483500 
14483600 
14483700 
14484000 
14485000 
14486000 
14487000 
14488000 
14489000 
14490000 
14491000 
14492000 
14493000 
14493500 
14494000 
14495000 


me tae a a a ae st ta 


0038 
0044 
0043 
O047 
0047 
0049 
0049 
0050 
0054 
0056 
0058 
0058 
0068 


NEXT SEG 
0043 
0045 
0045 
0045 
0046 
0046 
0047 
0047 
0050 
0054 
0054 
0052 
0052 
0052 
0053 
0055 
0058 
0059 
0060 
0062 
0063 
0063 
0064 
0064 
0067 
0070 
0076 
0077 
0077 
0078 
0079 
0079 
0079 
0080 
0084 
0082 
0082 
0083 
0083 
0084 
0094 
0094 


100 


PROINFO+LO3 
IF JUMPCTRALEVEL 
THEN 
JUMPCTRELEVEL@13 
LEVEL*LEVEL@43 
MODE*MODE@13 
MAXSTACK@MAXSTACKGS 
STARTEENDS 
PRT(710) = *SEGMENT DESCRIPTOR# 


GQ TO START} 
CALLSTATEMENT# FOULED ¢ L3 
JUMPCHKXSIF SOP THEN BEGIN ZSTACKCTReSLSSWHILE 2e2e120 
00 EmITL(0) ENDS 
If SPECTOG THEN BEGIN 
FLAGC12)3G0 TO HF 
ENDs 
BEGINCTR © BEGINCTR®13 
IF ERRORTOG 
THEN COMPOUNDTAIL 
ELSE 
BEGIN 
STMT} 
IF ELCLASS*¢ TABLECI4#1) sDECLAKATORS 
THEN 
BEGIN 
ELBATCIJ eCLASS*SEMICOLONS 
BEGINCTR*BEGINCTRe1s 
GQ TO START 
END 
ELSE 
COMPOUNDTAIL 
ENOS 


FUNCTOG¢FUNCTOGO3 
IF SOP THEN HTTEOAPCFALSEsFIRSTXsNINFOOsBLKAD) 
ELSE BEGIN IF NESTOG THEN SORTNESTS PURGECNINFOO)S ENDS 
SEGMENTCCL4+3)07¥ 4ePROADO); 
IF LEVEL>1 THEN RIGHTCL 23 
IF LEVEL © LEVEL@1 & 0 THEN CONSTANTCLEANS 


AJUMPeAJUMPO3 
FIRSTX*FIRSTXOS 


SAVEL@SAVELO3 
STACKCTRESTACKCTROS 


END BLOCK3 


COMMENT THIS SECTION CONTAINS TRE VARIABLE ROUTINE AND ITS SIDEKICKS3 


100 IS 


94 IS 


14496000 
14497000 
14498000 
14499000 
14500000 
14503000 
16302000 
14503000 


+4444 44 


102 LONG» 


14504000 
14905000 
14506000 
14506500 
14307000 
14508000 
14509000 
14510000 
14911000 
14912000 
14513000 
14814000 
14515000 
14516000 
14517000 
14518000 
14919000 
14520000 
14521000 
14522000 
14523000 
14824000 
14825000 
14599000 
14600000 
14601000 
14602000 
14603000 
14604000 
14605000 
14606000 
14607000 
14608000 
14609000 
14610000 
14611000 
14612000 
14613000 


170 LONG 


135000000 
15001000 
13002000 
18003000 


T 
T 
T 
T 
T 
T 
Y 
T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Ms 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


T 


T 
T 
T 


0094 
0095 
0095 
0095 
QQ97 
0096 
0100 
0100 


NEXT SEG 
0128 
0125 
0126 
0131 
0133 
0134 
Q135 
0135 
0136 
0136 
0137 
0138 
0138 
0139 
0140 
0141 
0141 
0144 
0145 
0146 
0146 
0146 
0146 
0147 
0147 
0149 
0152 
0154 
0156 
0159 
0159 
0160 
0160 
0160 
0161 
0162 
0162 
0162 

NEXT SEG 


0586 
0586 
0386 
0586 


94 


3 


COMMENT 


THE FOLLOWING BLOCK HANDLES THE FOLLOWING CASES 
OF SIMPLE VARIABLES! 
le V © EXP sWHERE V IS FORMAL*CALL BY NAME, 
2a V © EXP ALL VY EXCEPT FORMAL*@NAME, 
3e VelSthL)] © EXP »swHERE V IS FORMAL*@CALL BY NAME, 
4e VelStL] © EXP sALL V EXCEPT FORMAL*NAME, 
5e VeCSELI eALL Ve 
6, V s ALL Ve 
CODE EMITED FOR THE ABOVE CASES IS AS FOLLOWS 
le VNXEXPeMerXChoe, 
2e EXPsMwe VL oe, 
30 VNSOUP sCOCeEXPeTaMmpXCHet, 
Ge VVSEXPs To Mer VLae, 
Se ZERULe VVeT ry 
6e VV 
WHERE VN @ DESC V 
EXPs ARITHe OR BOOLEAN EXPRESSIGNSAS REQUIRED, 
M* = CALL ON MONITOR ROUTINESIF REQUIRED, 
VL # LITC v 
VV = OPOC Vv 
¢ #8 STORE INSTRUCTIONCISDsISN*#SND OR STO)e 
T #@ BIT TRANSFER CODECDIAsDIBs TRB), 
ZEROL ® LITC 0 
DUPsCOCsXCH & THE INSTRUCTIONS DUPSCOCsAND XCH, 


15004000 
135005000 
15006000 
15007000 
15008000 
15009000 
18842000 
13913000 
15014000 
15015000 
13016000 
159017000 
139018000 
15019000 
13020000 
15021000 
15022000 
15023000 
15024000 
45025000 
19026000 
15027000 
15926000 
15029000 
15030000 
15031000 
15032000 
15033000 
4135034000 
15035000 
15036000 
18037000 
15038000 
15039000 
15040000 
15041000 
15042000 
15043000 
15044000 
15045000 
15046000 
15047000 
15048000 
15049000 
15050000 
15051000 
15052000 
45053000 
15054000 
15055000 
15056000 
15057000 
15058000 
15Q59000 
15@60000 
15061000 
15962000 


Ot tt tt tt tH tt ts 


02686 
03586 
0586 
0586 
0386 
0586 
0386 
0586 
0586 
0586 
0586 
0586 
0286 
0586 
0366 
0386 
0386 
0386 
0386 
0386 
0386 
Q586 
0586 
0586 
0386 
0586 
0566 
0386 
0286 
0586 
0586 
0586 
0386 
0386 
0386 
0386 
0586 
0586 
0386 
0586 
0386 
0586 
0586 
0386 
0586 
0586 
0386 
0386 
0586 
0986 
0586 
0586 
0586 
0386 
0586 
0386 
0586 


STACKCF 42) 
STACK(F 43) 
STACK(F +4) 


STACK(F 45) 


STACK(F 46) 


OF COURSEs EXP WILL CAUSE RECURSIONsIN GENERAL* AND THUS 
THE PARAMETER Pi AND THE LOCALS CAN NOT BE HANDLED IN A 
GLOBAL FASHION, 
THE PARAMETER P{ IS USED TO TELL THE VARIABLE ROUTINE 
WHO CALLED Te SOME OF THE COOE GENERATION AND SOME 
SYNTAX CHECKS DEPEND UPON A PARTICULAR VALUE OF P1 , 

3 


PROCEDURE VARIABLECP1)3 INTEGER Pi; 


TALL 
Ti 
T2 
ws] 
SPCLMON 
COMMENT 
Lit 


211 


BEGIN 


BEGIN 

REAL TALL» COMMENT ELBAT WORD FOR VARIABLES 
Ti  » COMMENT 1ST INTEGER OF PARTIAL WORD SYNTAXS 
T2 » COMMENT 2ND INTEGER OF PARTIAL WORD SYNTAXS 
S) # COMMENT SUBSCRIPT COUNTER 3 


LABEL EXITeL lsLAST#NEXTs JALZsTTUPsLASSS 
DEFINE FORMALNAME=(9%2)e2¢5 LONGIDSNAMEIDS; 
BOOLEAN SPCLMON3 


TALL©ELBATCI) 3 
IF ELCLASS s INTPROCIO 
BEGIN 
IF TALL eLINK APROINFOsLINK THEN 
BEGIN ERKC211)3 GO TO EXIT ENDS 
VARIABLE®FUNCTION IDENTIFIER USED OUTSIDE OF ITS SCOPE*3 
TALL@TALL SCELCLASS 44 )C2tGit7) & 513016937811)3 
END 
ELSE CHECKERCTALL 3 
IF TALL «CLASS ¢ INTIO 


THEN 


THEN 


IF STEPI® ASSIGNOP THEN 
BEGIN STACKCT © 13 
IF TALL eFORMALNAME 
BEGIN 
EMITNCTALL ADDRESS); 
IF T1240 THEN BEGIN EMITOCOUP)SEMITUCCOC) END; 
END 
ELSE IF T1#0 THEN EMITVCTALL,ADDRESS) 
3 STACKCT © REALCTI40)3 STEPITS 
AEXP3 
EMITOC4B=T2 «Th 27225 


THEN 


STACKCT © Q3 

GTi ¢ IF TALL eCLASS SINTID THEN IF 
THEN ISO ELSE ISN ELSE 
IF Pi @ FS THEN STD ELSE SND 3 


Piz FS 


IF TALL ,FORMALNAME THEN 
BEGIN 
EMITOCXCH)S IF TALL ,ADDRESS>1023 THEN EMITOCPRTE)D3 
EMITOCGTI93 
END 


ELSE EMITPAIR( TALL eADORESS#GTI D3 


15063000 
15064000 
135965000 
15066000 
15067000 
15068000 
158069000 
15070000 
15971000 
15072000 


START OF SEGMENT 


15073000 
135074000 
15075000 


15076000 
15076100 
15076200 


1§077000 
15078000 
15079000 
15080000 
45081000 
45082000 
1$083000 
15084000 
1§085000 
15086000 
1$087000 
15088000 
15089000 
15090000 
15091000 
15092000 
18093000 
15094000 
15095000 
18096000 
15097000 
19998000 
15099000 
19100000 
43101000 
15101500 
15102000 
15103000 
49104000 
15105000 
15106000 
15106100 
15106200 
13106300 
15107000 


a4 4 


a tte a tt tt se ste a st te 


Q386 
0286 
0586 
0586 
0586 
0586 
0586 
0586 
0586 
0586 
KRRNKRH ES 


0000 
0000 
0000 


0000 
0000 
0000 


0000 
0004 
0004 
0002 
0004 
0005 
0005 
0009 
0009 
0040 
0011 
0012 
0012 
0012 
0013 
0014 
0016 
0016 
0018 
0020 
0020 
0022 
0025 
0026 
0Q27 
0027 
0028 
0030 
0033 
0035 
0037 
0037 
0040 
O04) 
0044 


102 


ELSE 


COMMENT 202 
COMMENT 204 


COMMENT 


END 


BEGIN 
IF Pl#FL THEN BEGIN 
IF ELCLASS < AMPERSAND THEN EMITNC TALL «ADDRESS) 
ELSE EMITVC TALL, ADDRESS )3 
GO TO EXIT END3 
IF ELCLASS® PERIOO THEN 


BEGIN IF DOTSYNTAx(T3sT2) THEN GO TO ExIT 3 
IF STEPI=ASSIGNOP THEN 
IF Pi# FS THEN 
BEGIN ERRC201)5G0 TO EXIT END 
ELSE GO TO Li 
END 3 
IF Pi# FP THEN BEGIN ERRC202)4 GO TO EXIT END; 
VARTABLE= A VARTABLE APPEARS WHICH IS NOT FOLLOWED * 
BY A LEFT ARROW OR PERIOD *3 
VARTABLE* A PARTIAL WORD DESIGNATOR IS NOT THE * 
LEFT*MOST OF A LEFT PART LIST lg 
EMITICTALLa Tis T2393 
END ; 
END QF SIMPLE VARIABLES 
ELSE 


IF TALL «CLASSFLABELIO THEN 
THE FOLLOWING BLOCK HANDLES THESE CASES OF SUBSCRIPTED 


VARIABLES! 
Le VO") »ROW DESIGNATOR FOR SINGLE*DIMENSION, 
2e VERs*) »RQW DESIGNATOR FOR MULTI® DIMENSIONS 
3, VER) es ARRAY ELEMENTsNAME OR VALUE, 
4 VCORJeCSILI #PARTIAL WORD DESIGNATOR» VALUE, 
Se VER) « PASSIGNMENT TO ARRAY ELEMENT, 


Ge VERJe (StL) © sASSIGNMENT TO PARTIAL WORDeLEFT@=MOST, 
R IS A KSQRDER SUBSCRIPT LISTe1leEs R= RLPR2e ener RKy 
IN THE CASE OF NO MONTTORING ON Vs THE FULLOWING CODE 
IS EMITTED FOR THE ABQVE CASES! 
Le CASE #1 IS A SPECIAL CASE QF #2s2NAMELY*SINGLE 
DIMENSTONe THE CODE EMITTED IS: 
ViLelLOD , 
EXECUTIUNS PLACES ARRAY DESCRIPTER IN REG Ao 
2e THIS CODE JS BASIC TU THE SUBSCRIPTION PROCESS, 
EACH SUBSCRIPT GENERATES THE FULLOWING SEQUENCE 
OF CODE? 
AEXPehL wel F FIRST SUBSCRIPT THEN VN ELSE COC 
aL ODe 
FOR A K*QRQER SUBSCRIPTIONsK*?1 SEQUENCE ARE 
PRODUCED, THE AEXP IN EACH SEQUENCE REFERS To 
THE CODE PROOUCED BY THE ARITHMETIC EXPRESSION 
PROCEDURE FOR THE ACTUAL SUBSCRIPT EXPRESSIONSs» 
(* REFERS TO THE CODE PRODUCED FOR SUBTRACTING 
NON®ZERO LOWER BOUNDS FROM THE SUBSCRIPT 
EXPRESSIONCL® YIELDS NO CODE FOR ZERO BOUNDS), 
EXECUTIONS PLACES ARRAY ROW DESCRIPTOR IN REG A 
o THE SPECIFIC ROW DEPENOS UPON THE 
VALUES OF THE K#4 SUBSCRIPTS, 
FOR THE REMAINING CASES» 


19108000 
151909000 
15119000 
435110100 
13110200 
15110300 
13110400 
43111000 
15112000 
15113000 
15114000 
15115000 
135116000 
15117000 
15118000 
15119000 
13120000 
19121000 
15122000 
15123000 
15124000 
135125000 
15126000 
135127000 
15128000 
19128100 
19129000 
15130000 
15131000 
15132000 
19133000 
19134000 
19435000 
15136000 
15137000 
1§138000 
15139000 
19140000 
15141000 
15142000 
13143000 
19144000 
15145000 
15146000 
15147000 
191486000 
15149000 
15150000 
19151000 
15152000 
15153000 
15154000 
15155000 
1$156000 
13157000 
15158000 
15159000 


ANAM Ht tt tt tt tt tt st tt Ht 


Q043 
0043 
0043 
0044 
0045 
0046 
0049 
0050 
0050 
0053 
0054 
0055 
00357 
0057 
0037 
0057 
Q059 
0059 
0059 
0039 
0059 
0060 
0060 
0060 
0060 
0060 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 


wWAZZ8 


ITUPS 


SEQUENCES OF CODE ARE EMITED AS IN CASE #2, 
HOWEVERS THE ACTUAL SEQUENCES ARE? 


ONE SEQUENCE »sCAEXPelLe)eFOR THE 1ST SUBSCRIPT, 


Km] SEQUENCES,CIF FIRST SUBSCRIPT THEN VN 
ELSE COC»LODsAEXPeh*)» FOR THE REMAINING 
SUBSCRIPTS» IF K>1i. 

AT THIS PQINTs CASES 43°6 ARE DIFFERENTIATED 
AND ADDITION CODEsPARTICULAR TQ EACH CASEsIS 


EMITTEDe 
Je ADO THE SEQUENCE! 
IF FIRST SUBSCRIPT THEN VV ELSE CUC,. 


EXECUTIONS THE ARRAY ELEMENT IS PUT JN REG Ay 


4. ADD THE SEQUENCES 


IF FIRST SUBSCRIPT THEN VV ELSE COCsZEROQLs 


XCHOTs 
5e ADD THE SEQUENCE! 


IF FIRST SUBSCRIPT THEN VN ELSE COCSEXPs 


XCHP eo, 
60 ADD THE SEQUENCES 


IF FIRST SUBSCRIPT THEN VN ELSE COC*DUP?LODs 


EXP» Te XCHat, 


EXPaTs@sZEROL»ETCe MAVE SAME MEANINGS AS DEFINED IN 
SIMPLE VARIABLE BLOCK, 


BEGIN 


IF STEP # LFTBRKET THEN 


BEGIN 


IF ELCLASS = PERIOD THEN 


BEGIN 


TF QOTSYNTAXC(T1sT2) THEN GO TQ EXIT? 
IF STEPI ® ASSIGNOP THEN 


ELSE 


BEGIN 
IF PisFS THEN BEGIN ERR(209)%3 GO EXIT ENDS 
IF TALL CLASS $ INTARRAYIO THEN 
BEGIN EMI[TPAIRCTALL.ADORESS*sL OD) END 
EMITNCTALL,ADDRESS)3 STACKCT # STACKCT#413 
STEPIT; AEXP3 
EMITOC46"T2sTleTt2)3 
EMITPAIR( TALL e ADDRESS, 

IF PisFS THEN STO ELSE SNQ)3 


STACKCT ¢ Q3 END 
ELSE BEGIN 
EMITICTALL*Ti»T2)3 


END3 


GO TO EXIT i 


ENDS 


IF ELCLASS ® ASSIGNOP THEN 


ENDS 


GO TO JAZZ ELSE GU TO ITUP 3 


Je OF 


15160000 
19161000 
19162000 
15163000 
19164000 
19165000 
15166000 
18167000 
1§1068000 
15169000 
4$170000 
15171000 
18172000 
15173000 
19174000 
15175000 
15176000 
15177000 
19178000 
15179000 
15180000 
15161000 
131382000 
19183000 
45184000 
15184100 
15184200 
15184300 
15184400 
15233000 
19233002 
13233003 
15233004 
15233005 
19233006 
1$233007 
1982330086 
15233009 
15233010 
18233011 
15233012 
18233013 
15233014 
15233015 
13233016 
19233017 
15233018 
15233019 
15233020 
15233021 
15233022 
15233023 
15233024 
15233025 
15233026 
1$233027 
19234000 


AA HH Ht Ht tt tt A tt tt tt ts tt tt at tt st ot tt te eo 


Q062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0062 
0063 
0063 
0063 
0063 
0063 
0063 
0064 
0064 
0065 
0065 
0067 
0068 
0069 
0071 
0072 
0074 
O077 
0079 
0080 
0084 
0084 
0085 
0085 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0087 
0089 
0089 


COMMENT 207 
NEXTS 


COMMENT 203 


COMMENT 204 
COMMENT 205 


STACKCT © 03 
VARIABLE@MISSING LEFTBRACKET ON SUBSCRIPTED VARIABLE #3 
IF STEPI ® FACTOP THEN 


BEGIN 
IF JeiF TALL»INCR THEN 
BEGIN ERR(€203)3G0 EXIT ENDS 
VARJABLE©® THE NUMBER QF SUBSCRIPTS USED IN A ROW ” 
ROW DESIGNATER DOES NOT MATCH THE ARRAY 
DECLARATION, *3 


IF STEPI # RTBRKET THEN 
BEGIN ERRC204)5G0 EXIT ENDS 
VARIABLE" COMPILER EXPECTS A J IN A ROW DESIGNATER «5 


VARTABLE® A ROW DESTGNATER APPEARS OUTSIDE OF A FILL Ld 
STATEMENT QR ACTUAL PARAMETER LISTe a3 
IF Js0 THEN 
EMITPAIRCTALL.ADDRESSsLOD)3 

STLB«O} 
STEPITS 
GO TO EXIT; 

GND OF ROW DESIGNATOR PORTION 3 


IF ELCLASSSLITNO AND ELBATCIJ,ADDRESS=0 AND TABLECI+1)2RTBRKET 


LASS! 


COMMENT 


weak 


AND TALL eCLASS2NAMEID THEN 
BEGIN 
Te]els 
IF STEPISZASSIGNOP THEN BEGIN 
IF Ti%0 THEN EMITVC TALL. ADDRESS); 
STEPITS AEXPS EMITDCAB@T2eTLsT2)3 
EMITNCTALL, ADDRESS); 
EMITQCIF TALL eCLASSZNAMEID THEN 
IF Pi2FS THEN ISD ELSE ISN ELSE 
IF PisFS THEN STD ELSE SND) 
STACKCT ©« 03 
GO TO ExIT END 
ELSE 
IF ELCLASS = PERIOD THEN BEGIN 
IF DOTSYNTAX(T3sT2) THEN GO TO EXIT 
IF STEPI = ASSIGNOP THEN IF PisFS THEN GO TO LASS 
ELSE BEGIN ERR(209)3 GO EXIT ENDS 
ENDs 
If PisFS THEN BEGIN ERR(210)3 GO EXIT END? 


EMITICIF PLsFL THEN TALL ELSE TALL&REALIOC 284 127I0T12T2)3 


GO TO EXIT} 
ENDS 
AEXP3 
STACKCT © 13 
Je Js + fi 
IF ELCLASS = COMMA THEN 
BEGIN 
MONITOR FUNCTION M4 GOES HERE 3 


IF J ® 1 THEN EMITVCTALL ADDRESS) ELSE EmMITOCCOC); 


GO TO NEXT 
END OF SUBSCRIPT COMMA HANDLER 3 
IF ELCLASS ¥ RTBRKET THEN BEGIN ERR(206)3GO EXIT ENDS 


15234500 
15235000 
15253000 
18254000 
15255000 
15256000 
15257000 
1$258000 
19259000 
15260000 
1§261000 
1§262000 
15263000 
18264000 
15865000 
15266000 
15267000 
15273000 
1§274000 
13875000 
19276000 
15276010 
152760020 
15876030 
19876040 
1§276050 
15276060 
15276070 
15276080 
15276090 
15276100 
15276410 
19276115 
19276120 
45276130 
19276140 
15276150 
15276160 
13276170 
19276180 
15276190 
15276200 
15276210 
15276220 
15276230 
15276240 
15877000 
15278000 
15280000 
15287000 
15288000 
15289000 
15890000 
15291000 
19292000 
1$293000 
15294000 
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0090 
0091 
0094 
0092 
0092 
0094 
0096 
0096 
0096 
0096 
0097 
0098 
0098 
0098 
0098 
0098 
0099 
0101 
0102 
0102 
0103 
0103 
0107 
0109 
0109 
Olly 
Oll2 
O1i5 
0118 
0119 
0124 
0124 
0126 
0127 
0128 
0128 
0129 
0131 
0133 
0135 
0135 
0138 
0138 
O142 
0142 
0142 
0142 
0143 
0144 
0145 
0146 
0146 
0146 
0150 
0150 
0150 
0150 


COMMENT 206 VARITABLE®@ MISSING RIGHT BRACKET ON SUBSCRIPTED VARIABLE®3 
GTASIF TALL eCLASS2NAMEIOD THEN 1 ELSE TALL eINCR3 
IF J*GTi THEN 
BEGIN ERRC208)3GU0 TO EXIT ENDS 


COMMENT 208 VARIABLE® NUMBER OF SUBSCRIPTS DOES NOT MATCH WITH * 
ARRAY DECLARATION, *5 
IF STEPI = ASSIGNOP THEN 
BEGIN 
LAST#$ IF J&#i1 THEN EMITNCTALL eADORESS) ELSE EMITOCCOC); 
IF TALLeCLASS 2 LONGID THEN EMITOCINX)3 
IF Ti 0 THEN 
BEGIN IF Pis FR THEN GO TO EXIT END 
pee BEGIN EMITOCOUP)sEMITOCLODIENDS STEPIT3 
AEXP 
EMITOC4B"T2sTlseT2) 3 
EMITOCXCH)3 
VF TALL, ADDRESS>4023 THEN EMITOCPRTE)3 
EMITOCIF TALL «CLASS MOD 2 = INTARRAYID MOD 2 THEN 
IF Py * FS THEN ISD ELSE ISN ELSE 
IF Pi=FS THEN STD ELSE SND)3 
STACKCT «# O3 
PieQ 3 
GO TO EXIT 3 
ENO OF ASSIGNMENT STATEMENT SUBSCRIPTED VARIABLESS 
IF ELCLASS=PERIOD THEN 
BEGIN 
IF DOTSYNTAX(T1eT2) THEN GO TO EXITS 
IF STEPI = ASSIGNOP THEN IF PisFfS THEN GO TO LAST 
ELSE BEGIN ERR(209)3 GO EXIT ENDS 
IF y#t THEN EMITOCCOC) ELSE IF TauteCLASS 2 LUNGIO THEN 
BEGIN EMITNC TALL ¢AUDRESS)ZEMITOCINX)ZSEMITOCLOD) END 
ELSE EMITVCTALL.ADDRESS); 
END 
ELSE 
COMMENT *ewee MONITUR FUNCTION M10 GOES HERE ; 
BEGIN COMMENT MONITOR FUNCTION M403 
gers s FP OR ELCLASS 2 AMPERSAND; 
J F | 
THEN JF TALL eCLASS 2 LONGIO THEN 
BEGIN 


EMITNCTALL «ADDRESS I3 EMITOCINX)3 
IF SPCLMON THEN EMITOCLO0) 3 
ENO ELSE IF SPCLMON 
THEN EMITVC TALL» ADDRESS) 
ELSE EMITNC TALL ®ADDRESS) 
ELSE EMIJTOCIF SPCLMON 


THEN COC 
ELSE cDC)3 
IF Pi #FS THEN ERRC210)3 
GQ 70 EXIT3 
END: 
IF Pl#FS THEN BEGIN ERR(210)3 GO TO EXIT END 3 
COMMENT 210 VARIABLE*MISSING LEFT ARROW OR PERIOD, «3 


STACKCT © Q3 

IF Ti ¥ 0 THEN BEGIN EMITICOsT1+T2)3 P1 © O ENDS 
END OF SUBSCRIPTED VARIABLES 

ELSE 


15295000 
15295400 
15296000 
15297000 
15298000 
15299000 
15300000 
15301000 
15302000 
15303000 
15304000 
15305000 
15306000 
19307000 
15306000 
15309000 
15310000 
15333000 
15334000 
15335000 
15835500 
15336000 
15337000 
15338000 
15339000 
15340000 
15341000 
15342000 
15843000 
15344000 
15344100 
15344200 
15345000 
15346000 
15347000 
15348000 
15349000 
15350000 
15351000 
159351400 
15351200 
15351300 
15351400 
16352000 
15353000 
1§354000 
15355000 
1356000 
$$364000 
15365000 
15366000 
15367000 
15368000 
15369000 
15370000 
15376000 
15376100 


AHA M MMH Ht tt tt tt at tt Ht st At tat tt tat a ot ot a ts to 


0153 
0153 
0157 
0457 
0159 
0459 
0159 
0160 
0161 
0164 
0167 
0168 
0169 
0172 
0172 
0174 
0175 
0177 
0180 
0183 
0186 
0186 
0187 
0188 
0188 
0189 
0189 
O1i94 
0193 
0195 
0199 
0202 
0204 
0204 
0204 
0204 
0204 
0206 
0207 
0209 
0209 
Oeil 
0213 
0213 
Od1s 
0216 
0218 
0219 
0220 
0222 
O222 
0222 
0225 
0225 
0226 
0229 
0229 


EXIT 


BEGIN COMMENT LABELIDs 
TAUSTAKECT283GITCTALL))3 
PutclheT2ds 


IF T1#0 THEN T1tsU3 


IF (TleL"T1) OLIV 4 > 127 THEN BEGIN Ti*Os3FLAG(50)s ENDS 
EMITCTIxG¢3)3 


STEPITS 


END OF LABELIDS 


ENO 


OF THE VARIABLE ROUTINES 


COMMENT THIS SECTION GENERATES CODE FOR STREAM PROCEQURES; 
LABEL DECS UPON APPEARANCE OF LABEL 3 
PROCEDURE DECLARELABEL 3 


¢ 


PRTC711) = DECLAR 


OMMENT 


ELABEL, 


00 


BEGIN 


KLASSF © STLABID3 


VONF © FORMALF « FALSE3 
ADDRSF © Q3 


MAKEUPACCUM3 


E3 PUTNBUMP(O)3 


ELBATCI) © ACCUM(LOJ& LASTINFOC352358143)3 


ENDS 


PROCEDURE STREAMSTMT 3 


BEGI 


N 


DEFINE LFTPAREN®LEFTPAREN#®sLOC=( 36812) #>LASTGTSC24t12)#, 


LOCFLDS 368 368 1O# o> LGTFLDB24% 2481283 
DEFINE LEVEL=LVL#s»ADDOPEADOP #3 


DEFINE 
JFw 2 39%» 
RCA = 40%» 
JRV = ATR, 
CRF = 435&s 
BNS = 428» 
NOP = l#s 
ENS 3 4lL#>» 
TAN = 308s 
BIT = 314s 
JFC = 3784s 
SED = Q6#» 
RSA 43s 
TRP = 608s 
BSS 3 3#» 
BSD = Cts 
SEC = 34> 
JNS 5S 38% 
PROCEDURE AQJUST33 


PRT(712) = ADJUST 


COMMENT 


CUMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
CUMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


COMMENT 
COMMENT 


PeSeSel 
70507 06 
7eSede2 

765010 
7edaded 


OONM Nn UW UI 


2 Uoses es © 8® © 28 @ 


Ne VON FS Ow @nNO 


JUMP FORWARD UNCONDITIONAL 

RECALL CONTRUL ADDRESS 

JUMP REVERSE UNCONDITIONAL 
06 CALL REPEAT FIELO 

BEGIN |.QOP 


END LOOP 
TEST FOR ALPHAMERIC 
TEST BIT 
JUMP FORWARD CONDITIONAL 
SET DESTINATION ADORESS 
RECALL SOURCE ADORESS 
TRANSFER PROGRAM CHARACTERS 
SKIP SOURCE BIT 
SKIP DESTINATION BITS 

10.4 SET COUNT 3 
JUMP QUT LQUP 


we We We we We Be tee We We We We We We We Wo 


we 


102 IS 


18376200 
15376300 
15376400 
15376500 
15376600 
15376700 
19376800 
15376900 
15377000 


246 LONG 


16000000 
16000050 
16000100 


16000200 
16000300 
16000400 
16000500 
16000600 
16000700 
16000800 


16001000 
16002000 
16003000 


START OF SEGMENT 


16004000 
160035000 
16006000 
16007000 
16008000 
16009000 
16010000 
16011000 
16012000 
16013000 
16014000 
16045000 
16016000 
16017000 
16018000 
16019000 
16020000 
16021000 
16022000 
16023000 
16023100 


i ee ee oe oer) 


ee ee 


tt a a ate is ts te 


0229 
0230 
0232 
0233 
0235 
0239 
0244 
Oe44 
0241 

NEXT SEG 


0586 
0586 
0586 


0586 
0986 
0587 
0389 
Q289 
09914 
0394 


0394 
0594 
0594 
Pee ee 2 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 


3 


103 


COMMENT FIXC EMITS BASICLY FORWARD JUMPS. HOWEVER IN THE CASE 


OF INSTRUCTIONS INTERPTED AS YUMPS BECAUSE OF A CRF ON 
A VALUE = Q AND THE JUMP 2 64 SYLLABLES A JFW 4 AND 
ARCA L CL IS STACK ADDRESS OF A PSEUDO LABEL WHICH 
MUST ALSO BE MANUFACTURED) IS EMITTED, 3 


PROCEDURE FIXC(S)4 VALUE S3 REAL 33 


PRTC743) ® FIXC 


STACK(F 42) = SAVL 
STACK(F 43) = D 
STACK(F 44) 3 F 


BEGIN 
REAL SAVL»DeF3 


16024000 
16025000 
16026000 
16027000 
146028000 
16029000 


16030000 
16031000 


START OF SEGMENT 


IF De CSAVLeL) = (CLeS)*l < 63 THEN EMITCCO»GET(S)) 
ELSE FLAGC70033 
LeSAVL 3 
END FIXC 3 
i104 TS 


COMMENT EMIT JUMP IS CALLED BY GOTOS AND JUMPCHAINe 


THIS ROUTINE WILL EMIT A JUMP IF THE DISTANCE IS s 63 
SYLLABLES sOTHERWISEs IT GETS A PRT CELL ANO STUFFS THE 
STACK ADDRESS INTO THE LABEL ENTRY IN INFU AND EMITS AN 
RCA ON THIS STACK CELLe AT EXECUTION TIME ACTUAL PARAPART 
INSURES US THAT THIS CELL WILL CONATIN A LABEL DESCRIPTOR 
POINTING TO OUR LABEL IN QUESTION, 3 


PROCEDURE EMITYUMP( £)3 VALUE ES REAL ES 


PRTC714) = EMITJUMP 


STACK (Fee 


>= T 
STACK(F 43) 5 D 


STACK(F 44) = ADDR 


COMMENT 


BEGIN 
REAL TeD3 


16032000 
16033000 
16034000 
16057000 


10 LONG 


16058000 
16059000 
16060000 
16061000 
416062000 
16063000 
16064000 
16065000 


16066000 
16067000 


START OF SEGMENT 


REAL ADORS 


IF ABS( 
DeCTeTAKECGITCE)) eLOCIeL1)264 THEN 
FLAGC700) 
ELSE EMITC(CDsIF 0 <O THEN JRV ELSE JFW)3 
END EMIT JUMPS 
105 IS 


WHEN JUMPCHAIN IS CALLED THERE IS A LINKEDLIST IN THE CODE 
ARRAY WHERE JFWS MUST BE PLACED. THE 15ST LINK IS POINTED 
TO BY THE LOC FIELO OF EACH LABEL ENTRY IN INFO, THE LAST 
LINK IS # 4096, 43 


PROCEDYRE JUMPCHAINE E23 VALUE EsSREAL E3 


PRTC715) # JUMPCHAIN 


BEGIN 
REAL SAVL e LINKS 


16068000 


16069000 
16070000 
16071000 
16079000 
16080000 


12 LONG 


16081000 
16082000 
16083000 
16084000 
160865000 


16086000 
16087000 


START OF SEGMENT 


T 
T 
T 
T 
T 
T 
T 
T 
* 


a | 


~A4+4 44 tt st 


* 


~ 


ett 


~a at 


T 
T 


0000 
QQ00 
0000 
0000 
0000 
0000 


0000 
0000 


KaeRER EEK 


0000 
0004 
0006 
0007 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


Kew tee 


0000 


0000 
0000 
0004 
0005 
0009 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 


0000 
0000 


wWeekhknken 


104 


103 


105 


103 


106 


STACK(F +2) = SAVL 
STACK(F 43) = LINK 


SAVL © L3 
L © TAKECGITCE)),LASTGT 3 
WHILE L¥ 4095 0U 
BEGIN 
LINK © GETCL)3 
EMITJUMP( E)3 


LeSAVLG 
END JUMPCHAIN 3 


COMMENT NESTS COMPILES THE NEST STATEMENT, 


A VARIABLE NEST INDEX CAUSES THE CODEs 
CRF Vs BNS 0 *NOP*eNOPs TO BE GENERATED INITIALLY 
AT THE RIGHT PAREN THE BNS IS FIXED WITH THE LENGTH OF 


THE NEST CNUMBER OF SYLLABLES) IF THE LENGTH S63sQ0THERWISE 


IT - FIXED WITH A 1 AND THE NOPS REPLACED WITH JUFW lp 
RCA Pe 
MAY = 0 AND THIS CODE CAUSES A JUMP AROUND THE NEST, 
VUMPOQUT INFO IS REMEMBERED IN A RECURSIVE CELL AND 
NEST LEVEL INCREASED BY ONE. 

WHEN THE RIGHT PAREN IS REACHEDs (IF THE STATEMENTS IN 
THE NEST COMPILED)=» 
QF JUMPOUT STATEMENTS IN THE NESTsIF SOsTHE THE YUMPS 
ARE FIXED BY FAKING TOTOS INTO COMPILING THE REQUIRED 
JUMPS, 

FINALLY THE BNS IS FIXED*s IF REQUIRED» AND NEST LEVEL 
AND JOINFO RESTORED TO THEIR ORIGINAL VALUESe 3 


PROCEDURE NESTS3 


PRT(716) & NESTS 


STACKCF +2) # JOINT 
STACKCF #3) = BNSFIX 


BEGIN 
LABEL EXITS 


REAL JOINT» BNSFIX3 


IF ELCLASSALITNO THEN 
BEGIN 
EMITCCELBATCIJeADDRESSsCRF)S BNSFIXe Li 
EMITCONS)3 
ENQ 
ELSE EMITCCELBATCIJ.ADDRESSsBNS)3 
IF STEPI # LFTPAREN THEN BEGIN ERR(262)3 GO TO EXIT END; 
NESTLEVEL®NESTLEVEL + 14 
JOINT © JOINFOS 
JOINFO ¢ O38 
DO BEGIN 
STEPITS ERRORTOG ¢ TRUES STREAMSTMT 
END UNTIL ELCLASS 4 SEMICOLON 3 
IF ELCLASS 4 RTPAREN THEN BEGIN ERRC262)3GG Tu EXIT ENDS 
EMIT ¢ ENS)3 


THES IS OQNE BECAUSE THE VALUE OF V AT EXECUTIUN 


JOINFQ IS CHECKED FUR THE EXISTANCE 


106 IS 


16088000 
16089000 
16090000 
16091000 
16092000 
16093000 
16094000 
16095000 
169096000 
16097000 


12 LONG 


16098000 
16099000 
16100000 
16101000 
16102000 
16103000 
16104000 
16105000 
16106000 
16107000 
16108000 
16109000 
16110000 
16111000 
16112000 
16113000 
16114000 
16115000 


16116000 
16117000 


START OF SEGMENT 


16118000 


16119000 
16120000 
16121000 
16122000 
16123000 
16124000 
46125000 
16126000 
16127000 
16128000 
16129000 
16130000 
16131000 
16132000 
16133000 


i 


Ae e AMA Ho se 8 


et a at as st 


0000 
0000 
0003 
OUu04 
0004 
0005 
0006 
0006 
0009 
0009 


NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 
0000 


0000 
0000 
ee Sy 


0000 


0000 
0000 
0004 
0003 
0004 
0004 
0006 
0009 
0010 
0014 
0012 
0013 
0014 
0016 
0018 


103 


107 


IF JOINFO # 0 THEN 
BEGIN 
PREPARE TO CALL JUMPCHAIN FORYUMPOUTS; 
ADJUSTS 
PUTCTAKECGITCJOINFO) QLELOCFLOIJ»GITCUOINFO) 3 
JWUMPCHAINCTAKECJOINFO )&8JOINFOL 359835213) )3 
ENDS 

IF BNSFIX #% 0 THEN FIXCCBNSFIX)3 

NESTLEVEL © NESTLEVEL@44 

JOINFO © JOINT 3 
EXIT: END NESTS 


COMMENT 


COMMENT LABELS HANDLES STREAM LABELS, 

ALL LABELS ARE ADVUSTED TO THE BEGINING OF THE NEXT 

WORD CIN THE PROGRAMSTREAM),. 

IF A GO TO HAS NOT BEEN ENCOUNTERED BEFORE THE LABEL 

THEN THE NEST LEVEL FIELD IS ENTERED AND THE DEFINED BITe 
Catide SET TO ONEs FOR DEFINED LABELSs IF WHERE aA GO TO 
HAS APPEAREDs A CHECK IS MADE THAT THE CURRENT NEST LEVEL 
MATCHES THE LEVEL UF THE LABELe 

MULTIPLE OCCURANCES ARE ALSO CHECKED FOR AND FLAGGEDes 
FINALLYsJUMPCHAIN JS CALLEO TO FIx UP ANY FORWARD GO TOS 
AND GET A PRT LOCATION FOR ANY JUMPS 264 SYLLABLES, 3 


PROCEDURE LABELS3 


PRTC7417) * LABELS 


STACKCF +2) = GT1 


BEGIN 
REAL GT%3 


ADUJUSTS 
GTi * ELBATCIVS 
IF STEPT # COLON THEN ERRC258) 
ELSE 
BEGIN 
IF TAKECGT2+GIT(GTI)).LOC # O THEN FLAGC259)3 
IF GTi?0 THEN 
BEGIN 
PUTC@CTAKECGTL&NESTLEVELCI1$4385))9GT1)3 
PUTC®LsGT2) 
END 
ELSE 
BEGIN 
TF GTAsLEVELANESTLEVEL THEN FLAG(257)3 
PUTCC*LISTAKECGT2) 0 LGTFLD) *GT2)3 
JUMPCHAINCGT123 


END3 
ENO 
3 «6STEPITS 
END LABELS 3 


107 IS 


16134000 
16135000 
16136000 
16137000 
16138000 
16139000 
16140000 
416141000 
16142000 
16143000 
16144000 


34 LONG 


16145000 
16146000 
16147000 
16148000 
16149000 
16150000 
16151000 
16152000 
16153000 
16154000 
16155000 
16156000 


16157000 
16157100 


START OF SEGMENT 


108 IS 


16158000 
16159000 
16160000 
16161000 
16162000 
16163000 
16164000 
16165000 
16166000 
46167000 
16168000 
16169000 
16170000 
16171000 
16172000 
16173000 
16174000 
16175000 
16176000 
46177000 


23 LONG 


T 
T 
T 
T 
sf 
T 
T 
T 
T 
T 
T 
? 


Att tH tt 


T 
T 


0019 
0020 
0020 
0020 
Q021 
0024 
Q0026 
0026 
0028 
0030 
0030 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


EeWREH HHA 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
1 
T 
T 
’ 


0000 
0000 
0004 
0003 
0003 
0004 
0006 
Q009 
0009 
0012 
0043 
0013 
0013 
O014 
0016 
0019 
0020 
0V20 
0020 
0020 
NEXT SEG 


103 


108 


103 


PRT¢720) 


STACK(F 42) 
STACK(F 43) 
STACK(CF 44) 


IFS 


COMMENT 


PROCEDURE 


IFSC, 


IFSB?: 
IF TOG: 


IFS CUMPILES JF STATEMENTS, 
FIRST THE TEST 1S COMPILED, NOTE THAT IN THE 
CONSTRUCTS "SC RELOP DC*™ AND "SC RELOP STRING" THAT 
THE SYLLABLE EMITTED IS FETCHED FROM ONE UF TWO FJELUS 
In THE ELBAT WORD FOR THE RELATIONAL OPERATORe OTHERWISE 
THE CODE IS EMITTED STRAIGHTAWAY, 
A TEST ITS MADE TO SEE WHETHER THE STATEMENT AFTER THE 
"THEN" COULO POSSIBLY BE LUNGER THAN 63 SYLLABLES» ANDO IF 
SO» 2 NOPS ARE EMITTED FOR FIXC IN CASE A RCA WILL HAVE 
TO BE GENERATED, 
THIS PROCEDURE DOES NO OPTIMAZATION IN THE CASES 
IF THEN GO TO LelF THEN STATEMENT ELSE GU TO YU» OR 
IF THEN GO TO Li ELSE GO TO Le 3 

IFS3 GEGIN 


DEFINE COMPARECODESCA2I6)#sTESTCODEFL 3686183 


LABEL IFSGsIFTOGsIFSCeEXITS 
SWITCH IFSW © IFSBoIFTOGeIFSCs 
REAL ADOR*FIXt»sFIxe 3 


ADDRe{ 3 
GO TO IFSWESTEPI *SBVvell 3 
IF ELCLASS#LOCLIO THEN 
BEGIN 
EMITCCELBATCI J sADDRESSs CREF )3 
ADDREU3 
ENO 
ELSE 
IF ELCLASS=LITNO THEN ADOR © ELBATCI).ADORESS 
ELSE BEGIN ERRC250)3 GO TO EXIT ENDS 
IF STEPI # SCV THEN BEGIN ERRC263)4G0 TO EXIT ENDS 
IF STEPI £ RELOP THEN BEGIN ERR(264)4GQ TO EXIT ENDS 
IF STEPI = DCV THEN EMITCC ADDR*ELBATCI“1)+COMPARECUDE) 
ELSE 
IF ELCLASS # STRNGCON THEN 
EMITCCACCUMC II, CISIO)SELBATECI@1)6TESTCODE) 
ELSE 
IF ELCLASSSLITNO THEN EMITCCCeELBATC I @1JyeTESTCODE) ELSE 
IF ELCLASSSIDMAX AND Qe"SALPHA" THEN EMITCCAP*TAN) 
ELSE BEGIN ERR(265)3G0 TO EXIT ENDS 
GO TO IFTOG 3 
EMITC¢4eBIT)3 
IF STEPI # THENV THEN BEGIN ERR(266)4 GO TO EXIT 
FIxi + L3 
EMITCJFC)3 
IF STEPIFELSEV THENS 
STREAMSTMT3 
IF ELCLASS#® ELSEV THEN 
BEGIN 
FIX2 ¢ Li 
FIXCCFIXL)3 
STEPIT3 
STREAMSTMT) 
FIXCCFIX2)3 


END} 


EMITCJFW)3 


16178000 
16179000 
16180000 
16181000 
16182000 
16163000 
16184000 
16185000 
16186000 
16187000 
161688000 
16189000 
16190000 
16491000 


16192000 


START OF SEGMENT 


16193000 
16194000 
16195000 


16196000 
16197000 
16198000 
16199000 
16200000 
162043000 
16202000 
16203000 
16204000 
16205000 
16206000 
16207000 
16208000 
16209000 
16210000 
16211000 
16212000 
16212500 
16213000 
16214000 
16215000 
16216000 
16217000 
16218000 
16419000 
16220000 
162829000 
16230000 
16231000 
16232000 
16233000 
16234000 
16235000 
16236000 


Se oe ee ee i ee 


A tt st at st tt tt te te 


9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 


0000 
Keehn y 
0000 
0000 
OV04g 


0004 
0005 
0009 
0009 
0010 
0012 
0012 
0012 
0012 
o014 
00147 
0020 
0023 
0026 
0027 
0028 
0034 
0032 
0036 
0039 
0043 
0043 
0045 
0047 
0048 
0049 
0050 
OO54 
0052 
0052 
0054 
0054 
0055 
0055 


109 


PRT(721) = GOTOS 


ELSE 
EXITSEND 


END 
FIXCCFIXL3 
IFS 3 


COMMENT GOTOS HANDLES GO TO AND THE LAST PART OF JUMP OUT TO 


PROCEDURE GOT 


BEGIN 
LABEL 


IF ST 


STATEMENTS. 

IF THE LABEL HAS BEEN ENCOUNTERED THEN EMITJUMP IS CALLED 
AN PROOUCES A JRV UR RCA IN THE CASE OF YUMPS264 SYLLABL 
ESe OTHERWISE» A LINK JS EMITTED POINTING ANY PREVIOUS 

GO TOS IN THE CASE OF FORWARD JUMPS, 

FINALL Ys IF THE NEST LEVEL IS DEFINED THEN IT IS CHECKED 
AGAINST THE CURRENT LEVEL MINUS THE NUMBER OF LEVELS TU 
BE JUMPED OUTe OTHERWISEsNEST LEVEL IS DEFINEDe 3 

Oss 


EXITS 
EPI ATOV THEN Ielwd 3 


IF STEPI ¥ STLABID THEN IF ELCLASS $ IOMAX THEN 
DECLARELABEL ELSE BEGIN ERR(260)3 GU TO EXIT END3 


IFCGT2¢TAKECGITCGTIFEL BATEOIJ)))¢MONRS 


OR GT 


ELSE 
BEG 


2eL0C40 THEN EMITJUMP(GT1) 


IN PUTCOSLC 24836312) sG116GT1) 23 

IF GT1?0 THEN 
BEGIN 
PUTC@CTAKECGTI&(NESTLEVEL*JUMPLEVEL )C4184385) oGT1)3 
EMITNC1023)3 


END 
ELSE 
BEGIN 
IF GTI,LEVEL 4 NESTLEVELSJUMPLEVEL THEN FLAG(257)3 
EMITCGT2eLASTGT)3 
ENO3 
END; 
JUMPLEVEL©O 3 
EXITs END GOTOS ; 
COMMENT RELEASES COMPILES THE STREAM RELEASE STATEMENT, 


THE CUDE GENERATED IS ¢ 
SED FILE 
RSA 0, 
AT EXECUTION TIME THIS CAUSES AN INVALID ADDRESS WHICH IS 
INTERPETED BY THE MCP TO MEAN RELEASE THE FILE POINTED TO 
BY THE DESTINATION ADDRESS, 
THE MONTTOR BIT IS SET IN INFO FOR THE LOCAL VARIABLE SO 
THAT ACUTAL PARAPART MAY BE INFORMED LATER THAT A FILE 
MUST BE PASSED FOR THIS FORMAL PARAMETER} 


199 7S 


110 IS 


16237000 
16238000 
16239000 


T 
T 
T 


0056 
0056 
0057 


61 LONGs NEXT SEG 


16240000 
16241000 
16242000 
16243000 
16244000 
16845000 
16246000 


16247000 
16248000 
16249000 


16250000 
16251000 


START OF SEGMENT 


16252000 
16253000 
46253100 
16854000 
16255000 
16256000 
16257000 
16258000 
16259000 
16260000 
16261000 
16262000 
16263000 
16264000 
16265000 
16266009 
16267000 
16268000 
16269000 
16270000 


29 LONG 


16271000 
16272000 
16273000 
16274000 
16875000 
16876000 
16277000 
16878000 
16279000 
16280000 


SL ———— 


T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
F 


tt 4 4 4 4 et 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


Q000 
0000 


keane 


0000 
0002 
0005 
O00? 
0010 
0013 
O014 
0017 
0017 
0018 
0021 
0022 
OV22 
0022 
O022 
0025 
0027 
0027 
0027 
0027 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


103 


110 


103 


PRT(722) * 


STACK(Fe2) 
STACK(F 43) 
STACKCF 44) 
STACK(F 45) 


tosh a 


COMMENT 


INDEXS COMPILE STATEMENTS BEGINING WITH SI,DI*CIs TALLY 
OR LOCALIOS , 
THREE CASES PRESENT THEMSELVES» 

LETING X BE EITHER OF SI*DIsCI OR TALLY» THEY ARES 


CASE I LOCLIO © xX 
CASE IT} X © X cee 
CASE ITI xX « ELTHER LOC#eLUCLIDssc OR DC, 


THE VARIABLE "INDEX" IS COMPUTEDsDEPENDING UPON WHICH 
CASE EXISTSs SUCH THAT ARRAY ELEMENT "MACROCINDEXI]"CONTAINS 
THE CODE TO BE EMITTED. 
EACH ELEMENT OF MACRO HAS 
RIGHT TO LEFT» UNUSED SYLLABLES MUST = Or 
MAY REQUIRE AT MOST ONE REPEAT PART, 
IN THIS PROCEDUREsINDEXSs THE VARIABLE "“ADOR™ CONTAINS THE 
PROPER REPEAT PART BY THE TIME THE LABEL "GENERATE" IS 
ENCOUNTEREO, THE SYLLABLES ARE FETCHED FROM MACROCTYPE) 
ONE AT A TIME AND JF THE REPEAT PART # 0 THEN®ADDR" IS 
USED AS THE REPEAT PARTs# THUS BUILDING A SYLLABLE WITH 
THE PROPER ADDRESS ANO OPERATOR , 
NOTE® IF MACROCTYPE] # O THEN THIS SIGNIFIES A SYNTAX 
ERROR, ; 


1°3 SYLLABLES URDEREO FROM 
EACH MACRO 


PROCEDURE INDEXxS3 
INDEXS 


TCLASS 
INDEX 
ADOR 

J 


BEGIN . 
LABEL EXITs¢GENERATE»L el 13 


INTEGER TCLASSP INDEX ADRs Ji 


TCLASS © ELCLASS 3 
IF STEPI # ASSIGNOP THEN BEGIN ERR(251)) GO TO EXIT END; 
IF TCLASS ® LOCLIO THEN 


BEGIN 

TF SIV>STEPT OR ELCLASS>TALLYV THEN GO TU L3 
INDEX © 32 + ELCLASS=SIV; 

ADDR ¢ ELBATEC I #2] ,ADDRESS; 

GO TO GENERATES 

END3 


IF TCLASS * STEP THEN 


BEGIN 

IF STEPI ¥ ADDOP OR STEPIx LITNO AND ELCLASS ¥ LOCLID THEN 
GO TO L3 

INDEX * TCLASS*SIY 
*REALCELBATCI7%1] ,ADORESS#SUB) x 4 
+ REALCELCLASS SLOCLID) x 83 

END 


16281000 
16282000 
16283000 
16284000 
16285000 
16886000 
16287000 
16288000 
16289000 
16290000 
16291000 
16292000 
16293000 
16294000 
16295000 
16296000 
16297000 
16298000 
16299000 
16300000 
16301000 
16302000 
16303000 
16304000 
163205009 
16306000 
16307000 
163808000 
16309000 
16310000 
16311000 


16312000 
16313000 


START OF SEGMENT 


16314000 


16315000 
16316000 
16317000 
16318000 
16819000 
16820000 
16321000 
16822000 
16323000 
16824000 
16325000 
16326000 
16827000 
16328000 
16329000 
16330000 
16331000 


at se tt st ot tA A tt 


T 


anew keaneen 


T 


a nn ee eee 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


0000 


0000 
0000 
0003 
0004 
0004 
0007 
0uV09 
0011 
O011 
0041 
0012 
0013 
0015 
O01L?T 
0017 
0020 
0022 


111 


PRT(723) = 


STACK(F +42) 
STACKCF 43) 
STACK(F 44) 
STACK(CF 45) 
STACK(F 46) 


PROCEDURE 0SS3 


OSS 


ann # 


ADOR 


ATA 


ELSE 


TCLASS SIV 
IF ELCLASS §% LOCLID THEN 36 ELSE 
IF ELCLASS = LOCV THEN 20 ELSE 
IF ELCLASS = SCV THEN 24 ELSE 
IF ELCLASS= OCV THEN 28 ELSE 25)3 
IF ELCLASS = LOCV THEN 
IF STEPIT # LOCLIO THEN GO TO L3 
IF ELCLASS & LITNO AND TCLASS = TALLYV THEN 
BEGIN EMITCCELBATEI),ADDRESS»SEC)3G0 TO EXIT END; 
END 3 


ADDR ¢ ELBATCIIJsADDRESSS 


GENERATES 


IF MACROCINDEX]® Q THEN 


Ls 


BEGIN ERR(250)3G0 TO EXIT ENDS 


J @ 83 TCLASS ¢0 3 
Lis MOVECHARACTERS(2sMACROCINDEXJeJeu=2eTCLASS»6 )3 
IF TCLASS40 THEN 


EXIT#END 


COMMENT 


BEGIN 


BEGIN 

EMITCCIF TCLASS264 THEN ADDR ELSE OsTCLASS)3 
GO TO Ly 

END; 

INDEXS 3 


DSS COMPILES DESTINATION STREAM STATEMENTS, 


DS* ULITWSTRING" IS HANDLED AS A SPECIAL CASE BECAVE THE 
STRING MUST BE SCANED FROM RIGHT TO LEFT*REPEATEDLY IF 
NECESSARYs AND EMITTED TO THE PROGRAM STREAMe JIN 

ALL OTHER CASESsTHE ELBAT WORD CONTAINS THE OPERATOR IN 
THE OPCODE FIELD i 


INTEGER ADDR» JaKol a Th 


LABEL EXITelL 4) 
DEFINE QPCODEal27#6) #3 


IF STEPI # ASSIGNOP THEN BEGIN ERR(251)3 


GO TO EXIT ENDS 


IF STEPI # LOCLID THEN 


ELSE 


BEGIN 
EMITCCELBATCI J «ADDRESS s CRE D3 
ADDR® 03 

IF STEPI * LITV TREN GO TO L4 

ENO 

IF ELCLASS® LITNO THEN 

BEGIN 

ADDR ¢ ELBATECZI,ADDRESSS STEPIT 3 


111 1S 


16332000 
16833000 
16334000 
16335000 
16336000 
16337000 
16338000 
16339000 
16340000 
16341000 
16342000 
16343000 
16844000 
16345000 
16346000 
16347000 
16348000 
16349000 
16350000 
16851000 
16352000 
16853000 
16854000 
16355000 


58 LONG 


16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 


16363000 
163864000 


START OF SEGMENT 


16365000 
16366000 
16367000 
16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16373000 
16376000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
& 


Aa 


T 
T 


0022 
0022 
0023 
0023 
0026 
0028 
0030 
0033 
0033 
0035 
0037 
0040 
0040 
0044 
0042 
0043 
0045 
0046 
0050 
0050 
0054 
0054 
0054 
0054 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 


kkeWNkek ee 


Ee ee 


0000 
0000 
0000 
0002 
0003 
0004 
0006 
0006 
0007 
0008 
00Q9 
0010 


103 


llé 


ENO 
ELSE ADOR © 1 3 
IF @ & "4FILLO" THEN EMITCCAODDR®10) ELSE 
eas ® TRNSFER TREN EMITCCADOR*SELBATCIIJ¢UPCUDE) 
IF ELCLASS = LITV THEN 

BEGIN 

EMITCCADDR*sTRP)3 

IF STEPIFSTRNGCON THEN 

BEGIN ERR(C25523GQ TO EXIT ENDS 
IF ADOR MQD 2 # O THEN 


ZE 


BEGIN 
EMITCACCUM( 1] 6£1836))3 Je fi 
END 3 

FOR K #J#2 STEP 2 UNTIL ADOR DO 
BEGIN 


FOR L «697 DO 
MOVECHARACTERSCLSACCUM( 1 J eeeCIF ueutL>CUUNT THEN Je} 
STACKCF +7) & *TEMPORARY STGRAGE® 
ELSE J)eTel Df 


EMITCT)3 
END END 
ELSE 
Li! ERR(250)3 
EXITHEND DSS 3 


COMMENT SKIPS COMPILES THE SKIP BIT STATEMENT. 

IF THE REPEAT INDEX IS A LOCALID THEN A CRF IS EMITTED, 

A BSS OR BSD IS THEN EMITTED FUR SKIP SOURCE BITS (SB) 

OR SKIP DESTINATION BITS (0B) RESPECTIVELY 3 

PROCEDURE SKIPS 3 
PRT(724) # SKIPS 
BEGIN 
REAL ADORS 
STACK(F 42) = ADOR 
IF STEPI = LOCKIO THEN 

BEGIN 
EMITCCELBATCI Je ADDRESSs CRE) 
END 
IF ELCLASS = LITNO THEN 
BEGIN 
ADDRe ELBATCIT)].ADDRESSs STEPIT 
END 
ELSE ADDR + 1 3 
IF ELCLASS #S8V THEN EMITCCADDR*2 BSS) 
ELSE 
IF ELCLASS 4D8V THEN 
ELSE ERR(250)3 
ENO SKIPS 3} 


ADOReO# STEPITS 


ELSE 


EMITCCADDRsBSD) 


li2 1S 


16377000 
16878000 
16878500 
16379000 
16380000 
16381000 
16382000 
16383000 
16384000 
16384500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 


163893000 
16394000 
16395000 
16396000 
16397000 
16398000 


52 LONG 


16399000 
16400000 
16401000 
16402000 
16403000 


16404000 
16405000 


START OF SEGMENT 


113 1S 


16406000 
16407000 
164068000 
16409000 
16410000 
16411000 
16412000 
16413000 
16414000 
16415000 
16416000 
16417000 
16418000 
16419000 


18 LONG 


AHH HAHAH te 


44H 


a 


Se ee ee 


0012 
0012 
0013 
0015 
0019 
0020 
0024 
0021 
Q022 
0023 
0028 
0026 
0027 
0029 
0029 
0033 
0033 
0038 


0041 
0044 
0045 
00466 
0046 
0047 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 


0000 
0000 


eee eee 


0000 
00014 
0004 
0004 
0004 
0005 
0006 
0007 
0008 
0009 
0011 
0011 
0014 
0015 
NEXT SEG 


103 


113 


103 


PRT¢725) = JUMPS 


COMMENT JUMPS COMPILES YUMP QUT AND JUMP OUT TO STATEMENTS, 


JUMP QUT TO STATEMENTS CAUSE JUMP LEVEL 10 BE SET TO 

THE NUMBER OF LEVELS SPECIFIEDe THEN THIS NUMBER OF 

JNS ARE EMITTED AND GOTOS IS CALLED TO COMPILE THE 

JUMP INSTRUCTION, 

SIMPLE JUMP OUTS ARE HANDLED BY EMITTING ONE JNS»ENTERING 
A PSEUDO STLABID IN INFO AND SETTING ELBATECIJ SUCH THaT 
THE GOUTOS PROCEDURE WILL PERFORM THE ACTION OF SETTING 

UP THE LINKS FOR LATER FIX UPSe THE NEST STATEMENT CAUSES 
THESE FIX UPSCIF EMITTING OF JUMP INSTRUCTIONS) BY CALLING 
GO TOS WHEN THE RIGHT PAREN IS ENCOUNTERED. 3 


PROCEDURE JUMPS3 


BEGIN 


JUMPLEVELe 2 


IF STEPIZQDECLARATORS THEN IF ACCUMC1I]4"30UTOO" THEN 
FLAGC261)3 


IF STEPI = LITNO THEN JUMPLEVEL® ELBATCI)¢ADORESS 
ELSE BEGIN 


COMMENT 


ENDS 


IF ELGLASSZ TOV AND ELCLASS# STLABID THEN 
BEGIN 
SIMPLE JUMP OUT STATEMENTS 
If JOINFO © O THEN 
BEGIN 
WOINFOQ @ NEXTENFO 3 
PUTNBUMP(STACKHE ADCO] eLINK&(STLABIDX2¢1) 
C2t4098j&ecarr4ots j)i 
PUTNBUMP (Q0&(JOINFO@#LASTINFEO 
PUTNBUMP ¢€023 
LASTINFQ « JQINFQ; 
END3 
ELBATCIe Jelje 
END3 Tern) 3 


YE 434088193 


TAKECJOINFOAYOINFOC 359353135); 


FOR GTi¢ 1 STEP 1 UNTIL JUMPLEVEL 00 


EMITC JNSQ3 


GOTOS; 
END JUMPS3 


COMMENT STREAMSIMT 


ENVOKES THE APPROPRIATE PROCEDURE TO HANDLE 
THE VARTOUS AND SUNDRY STREAM PROCEDURE STATEMENTS, 
THE STATEMENTS ARE BROKEN DOWN AS FOLLOWS? 

IDENTIFIED BY PROCEDURE ENVOKED 


END GU TO FINI 
SEMICOLON GO TO FINI 
) GO TO FINI 
IF IFS 
GO GOTQOS 
RELEASE RELEASES 
BEGIN COMPQUNOTAIL 
STsDIeCIsTALLYsLOCALIO INDEXS 
QS OSS 
QKIP SKIPS 


JUMPS 


16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 


16432000 
16433000 
16434000 
16434100 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
164464000 
16445000 
16446000 
16447000 
16448000 
16449000 
16450000 
16451000 
16452000 
16453000 
16454000 
16455000 


16456000 
16457000 
16458000 
16459000 
16460000 
16461000 
16462000 
16463000 
16464000 
16465000 
16466000 
16467000 
16466000 
16469000 
16470000 


ee Eee Bee ee ee ee 


tt te st Ht Ht 


tat tt st st 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0004 
0004 
0005 
0007 
0010 
0014 
0012 
0012 
0013 
0013 
0014 
0016 
0018 
Q021 
0024 
0022 
0022 
0026 
0027 
0027 
0029 
0032 
0032 


0032 
0032 
0032 
003a 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 


LABELIO LABELS 
LITERAL NO»*LOCALIDC NESTS 
UPON EXITINGsSTREAMSTMT ASSURES THAT "1" POINTS TO 
THE SEMICOLON sEND OR ) IN SYNTACICALLY CORRECT PROGRAMS} 
LABEL LokdelL QoL aol Gel Sel OsL7oL SoLPoLLOsEXIToFINI 2 START3 
SWITCH TYPE © FINI sLo FINI sL Oo LGoL Sel OoL7oL7oL ToL 7oLGeL9eL i103 
STARTS GO TO TYPEC ELCLASS*ENDV44);3 
IF ELCLASS=® RTPAREN THEN GO TO FINI 3 
IF ELGLASS®™ STLABIO THEN GO TO L2 3: 


IF ELCLASS <IDMAX AND ELCLASSZLOCLID THEN BEGIN 
DECLARELABELS GO TU L2s END; 
IF ELCLASS s LITNO OR ELCLASS = LOCLID AND TABLECI +41) 
= LFTPAREN THEN GO TO L343 
IF ELCLASS * LOCLIOD THEN GO TO L73 
ut ERRC 250 24 GU TO FINI 3 


1! NESTS3 GQ TO EXIT; 
Les LABELSs GO TO START; 
3! IFS3 GO TO FINI3 
L4s GOTOSs GO TO ExIT3 
L5% 
L63 IeI#1 3 COMPOUNDTAILS GO TO FINI’ 
L7! INDEX93 GQ TO ExIT3 
L8t OSS; GO TO EXIT3 
Lo! SKIPS3 GO TO EXITs 
L108 JUMPS; GQ TO EXIT; 
EXITS STEPITS 
FINI? END STREAMSTMT3 
103 IS 
MOVE C1 eT eCODECO))3 
TIMEL © TIMEC1)3 PROGRAM? 
ENDOFITALLIEND MAIN BLOCK 
END, 
PRTC726) * *SEGMENT DESCRIPTOR* 
3 1S 
PRT(527) = EXP INTRINSIC» SEGMENT NUMBER = 144, ous 
PRT(526) * UN INTRINSIC, SEGMENT NUMBER ® 1156 
PRT(343) = OUTPUT(W) INTRINSIC» SEGMENT NUMBER = 436, 
PRT(C5) = BLOCK CONTROL JNTRINSICs» SEGMENT NUMBER = 1147, 
PRT(530) = X TO THE I INTRINSICs SEGMENT NUMBER ® 418, 
PRTC373) = GO TO SOLVER INTRINSIC» SEGMENT NUMBER w 449, 
PRT¢14) = ALGOL WRITE INTRINSIC» SEGMENT NUMBER = 120, 
PRTC(15) = ALGOL READ INTRINSIC» SEGMENT NUMBER &® 1246 
PRT(16) 3 ALGOL SELECT INTRINSIC» SEGMENT NUMBER = 122¢ 
PRTC411) = DYNAMIC DIALS INTRINSIC» SEGMENT NUMBER # 123, 
PRTC201) = FILE ATTRBUTS INTRINSIC» SEGMENT NUMBER & 124, 
i 1s 
125 IS 


COMPILATION TIME = 846 SECONDS, 
7276 WOROSA DISK SIZE = 360 SEGSS NOs PGM, SEGS = 125 


NUMBER OF ERRORS DETECTED @ Oe 
PRT SIZE = 4713 TOTAL SEGMENT SIZE # 


ESTIMATED CORE STORAGE REQUIRED = 13928 WORDS. 


16471000 T 0032 
16472000 T 0032 
16473000 T 0032 
16474000 T 0032 
16475000 ~ 0032 
16476000 T 0032 
16477000 T 0043 
16478000 T 0047 
16481000 T O48 
16482000 T 0049 
16482100 7 O049 
16482200 T 0054 
16482300 T 0052 
16482400 T 0055 
16482500 T 0057 
16483000 T 0058 
16484000 T 0060 
16485000 T 0062 
16486000 T 0063 
16487000 T 0064 
16488000 T 0065 
16489000 T 0065 
16490000 T 0067 
16491000 T 0069 
16492000 T 0070 
16493000 T O07} 
16494000 t 0072 
16495000 T 0072 
74 LONG, NEXT SEG 
16495100 tT 0594 
16495200 T 0599 
16495210 T 0600 
16495300 T 0604 
604 LONGs NEXT SEG 
41 LONGs NEXT SEG 


@ LONG» NEXT SEG 
69 LONGs NEXT SEG 


3 


2 


Q 
Q 


ESTIMATED AUXILIARY MEMORY REQUIRED & 0 WORDS, 
NUMBER OF CARD@I MAGES PROCESSED # 6918. 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


0012 


*02062500* 
02063500 


*02054000* 


02055000 


*02022000* 
02023000 


*03050000* 


*#04311000* 
04311050 


#03049000* 


*03047100* 


*04500000¥ 
04529000 


#02264100* 


02265100 
02266000 


04311060 


043435000 404345000 


04534000 04542000 


02265450 


02265250 


04548000 


02265300 


04550000 


92265600 


04554000 


022605650 


04556000 


02265700 


02265750 


02265850 


02265900 


02265950 


hry, 


0036 


0035 


0041 


0043 


0043 


0065 


0065 


0065 


0089 


0092 


*05130000* 
#05131000* 


#05065000* 
05065000 


*05334100% 
05334100 


*#05415000« 
05417000 


#05413000* 
05426000 


*08015000* 
08181000 


*08027000* 


*08035000**08037000« 


*08020000" 
08021000 


*#13359000*% 
¥13364000* 


¥13673100* 
13673100 


035132000 


05066000 


05411100 


05419000 


05427900 


08188000 


13363000 


05421000 


05431000 


13366000 


05422000 


05432000 


ABS 


0035 *05065000* 


ACG 


0063 *07653500* 


ACCUM 


9003 *01304000* 


ACCUM 
0003 


ACCUM 
0007 


ACCUM 
0034 


ACCUM 
0054 


ACCUM 
0083 


ACLASS 
0054 


05066000 


07654500 


02128500 
0258 1000 
02700000 
07086200 
12119000 
14259000 


*02041000* 


02043000 


+02089500*% 
02122500 


#05016000* 
05028000 


*07036100* 
07038500 


#10236000* 
10239000 


*07038000* 


05092000 


08027000 


02251000 
02590000 
02705000 
07086300 
12120000 
14259080 


07536000 


08083000 


02255000 
02592000 
02754000 
07668500 
12122000 
14440000 


07537000 


08084000 


02259000 
02602600 
02822000 
07670000 
13284000 
444414000 


02278000 
02647000 
02846000 
07674000 
13282000 
16000700 


02280000 
02650000 
02865000 
19264700 
13307000 
16211000 


02327000 
02652000 
02884000 
19264900 
13308000 
16387000 


02366100 
02686000 
02958500 
19269000 
13309000 
16392000 


02374000 
02686500 
05043000 
19274000 
13349000 
16434000 


02499000 
02696000 
05044000 
12137000 
13372000 


02502000 
02698000 
035325460 
12118000 
13755000 


*07041000* 07047000 07057000 07069000 «07081000* 07089000 


ACTUALPARAPART 
0003 *07035000* 


07410000 07438000 


ADD 
0003 *01633000* 


05226000 07525000 06126000 08214000 13221000 


ADD 
0087 *13221000* 


*13248000* 13250000 143252000 43252500 *13259000* 


ADDC 
0003 ¥13212000* 


ADDITIONAL 
0062 #07595000* 


07601000 07603000 07610000 


ADLOP 
0103 *16005000* 
16326000 

ADOR 


0105 ~16068000* 


ADUR 
0109 *16195000*% 


4#16196000##162040008416204000% 16208000 
ADDR 
0113 *16405000« 


#16408000 #44644 2000 4416414000 16415000 16417000 


ADDR 


04142 #16364000* 


416371000 4416376000 44163780008 16378500 


ADDR 


O4it *16314000* 


#16321000**16344000* 


ADDRES 


0065 *08010000*% 


¥0B8055000+* 


ADDRESS 
0003 #01152000* 


#02850000¥% 
053446415 
06326000 
08044000 
13394000 
15097000 
15276080 
16200000 


ADDRESS 
0003 *04022000* 


04023000 


ADDRESS 
0003 *04017000* 


04018000 


ADDRESS 
0003 *04030000* 


04032000 


ADDRESS 
0003 %05199000* 


05201000 


ADDRESS 
0055 *#07393000*% 


08067000 


02896000 
05344620 
07074000 
08055000 
14085000 
15106400 
15290000 
16204000 


04024000 


04019000 


040330900 


16352000 


08068000 


02900000 
05344660 
07090000 
19277000 


#144450008 


15407000 
15302000 
16321000 


08075000 


02923000 
05344700 
07393000 
12045000 
14129000 
19140200 
193140000 
19329000 


16379000 


08179000 


04508000 
05344710 
07439000 
12024000 
14349000 
15410300 
15344100 
16342000 


16383000 


08212000 


05131000 
06016000 
07745000 
12936000 
14399000 
15233010 
15344200 
16344000 


16385000 


05217000 
06072000 
07768100 
12947000 
14430000 
192233011 
1535414200 
40370000 


16389000 


05233000 
06108000 
07994000 
12108000 
14437000 
15233014 
19352000 
16376000 


05280000 
06185000 
07995000 
13205000 
14461200 
15267000 
15353000 
16408000 


05281000 
06324000 
08021000 
13248000 
14483200 
15276010 
16121000 
16442000 


03344570 
06325000 
08029000 
13259000 
15094000 
15276060 
19124000 
16435000 


*07397000% 07397400 907397500 07413000 


07579000 


12013000 


ADORSF 
Q003 *01604000* 
07397000 07677000 #13205000**13344000¥#133460004#1 33470008 13348000 
13770000 14313000 14320000 «16000500« 
ADDOVALUE 
0003 *01000860* 
02193000 *02592000*s090289204 
ADES 
0003 «01299010 
ADJUST 
0003 *04083000* 
04087000 04144000 041472000 06208500 970800090 07459000 
O7727040 08190000 13605000 13611000 13630000 46023400 
ADJUST 
0403 *#16023100* 
16137000 16158000 
ADOP 
0003 *01278000* 
035344550 05344670 06043000 07666000 08029000 08031000 
ADR 
0091 #*13633000* 
13633000 43642000 13657000 
ADRES 
0037 #05215000* 
w05217000* 052419000 #05219000* 05226000 05227000 
AEXP 
0003 *03001000* 
03006000 #06002000* 06007000 06057000 06105000 06474000 


06202000 


13373000 »13767000*% 13767000 13768000 


07585100 


120922000 


06305000 


07586000 


16005000 


06440000 


07600200 97607100 


16326000 


06416000 06422000 


07045000 
12051000 


AGAIN 


0016 #02360000* 


#02372000* 
02470000 
02520000 


AGAIN 


0044 *05439000* 


*05445000* 


AGAIN 


0064 *07726000* 


*07727000* 


AGIN 


0003 *02001860* 


02004880 


AJUMP 


0003 #01596000" 


13603000 136440008 13626000 %13629000% 14054000 #14055000%%14606000* 


AJUMPO 


0094 #14034000*% 


*14054000« 


AKKUM 


0003 «#01693000* 


ALF AARRAYID 
0003 *01204000* 


ALFAID 
0003 *01200000* 


14139000 


07062000 
12054000 


02377000 


02472000 
02522000 


05454000 


07727400 


02001886 


14606000 


07086000 
43759000 


02390000 


02474000 
02564000 


05457000 


07741000 


07487000 
15099000 


02393000 


02480000 
02567000 


07493000 
15233012 


02395000 


02493000 
02601000 


08101000 
15276070 


02397000 
02496000 


06123000 
15277000 


02404000 
02301000 


08331000 
15307000 


02448000 
02506000 


08135000 


02421100 
02508000 


08142000 


02431000 
02513000 


12046000 


02460000 
02546000 


ALFAPROCIO 
0003 *01196000* 


ALFASTRPROCIO 
0003 #01192000* 


ALF AV 
0003 *01284000* 


ALL 
0065 *08052000* 


08054000 08055000 08056000 98057000 


ALLTHU 
0028 *«04168000* 


04176000 *04186000« 


ALONG 
0017 «02325000» 


02336000 02340000 02354000 *02358000* 


ALPHADEC 
0094 #14013000* 


14018000 *14139000» 
ALPHASIZE 


0003 *01707000* 


ALPHAWORDS 
0012 *02264700* 


02264900 02265600 02265850 


AMPERSAND 


0003 *01266500* 
06034000 06180000 07084000 145110200 


ANDOP 
0003 *01276000* 


02964500 02971000 02983500 


ANOTHER 
0053 *07007000* 


*07009000*% 07012000 07045000 07024000 


ANOTHER 
0054 *07037000* 


*07041000* 07095000 


ARGH 
0021 *02638000* 


*902649000% 02688000 02718000 02753000 


ARITHCOMP 
0003 *03004000* 


06036000 #06041000*% 06052000 06055000 


ARITHSEC 
0003 *03002000* 


06006000 *06011000* 06023000 


ARRAE 
0003 #13376000* 


43410000 14156900 


ARRAYDEC 
0094 *14015000* 


$4020000 #14156000+ 


ARRAYMONFILE 
0003 *01526000* 


15349000 


02899000 


ARRAYV 
0003 


ASKIP 


*01294000* 
14161000 


0083 *10236000* 


10237000 10239000 


ASST GNOP 


0003 


ASTOG 
0003 


ASTRISK 
0003 


ATSIGN 
0021 


ATYPE 
0003 


AWAY 
0008 


*01273000* 


06199000 07397240 07404000 07662000 08478000 08229000 
15233026 15276050 15276160 145300000 15342000 46316000 


*#01300100* 
05348000 07600410 «07600430*% 


*01212200* 
01299100 07600400 13400000 43404000 15253000 


*02637000* 
02641000 *02683000* 


#01452000* 
01452000 06005000 96057000 


*02191000* 
02191250 027194250 02195250 #02396250« 


*07034000* 
07066700 *07086700* 09384000 09384100 


12928000 
16367000 


13758000 


15090000 


15113000 


19233006 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


0003 


*02054000* 
02055000 


*01717000* 


#02062500* 
02063500 


*04247000* 
04248000 


*02980000* 


02983500 «05983500% 02984000 


*#030487100* 


*04311000* 
04311070 


#04500000* 
04526100 


#02955500* 


¥03041000* 


04311080 04347000 «04337000« 


04528000 04542000 


02984500 


04544000 


04548000 


04554000 


04556000 


0003 


0017 


0024 


0023 


0033 


0065 


0065 


0077 


BACK 
0058 


*93050000" 


*#02323000* 
*#02343000* 02352000 02353000 #02356000* 02357000 


702973500" 
402976000 4402978000 4202978500" 02978500 02979000 


wO02970000* 
*02970500* 029731000 02971500 


*04505000* 


04507000 


#08027000* 
*#08035000*#08037000» 


#08010000* 


08044000 09047000 08089000 06112000 08116000 #081220004%08169000" 09183000 08199000 *08209000% 08213000 


w09393240* 


09393300 09393310 09393330 09393350 09393370 #09393370* 09393400 *09393410* 09393410 
09393440 


wO7491000* 
*07493000* 07495000 


09393430 *09393440" 


BACK 
0066 *08084000* 


08089000 


BACK 
0082 *10259000* 


#10263300* 140276500 40278000 140279000 


BACKFIX 
0066 *08091000* 


08097000 408099000 4%08106000% 08127000 408146000%408447000% 08157000 08168000 08171000 


BAL 
Q003 *03046000* 


#074580004w074890008 07459000 


BANA 
0003 *03048000*% 


05225000 #06449000% 06423000 07523000 


BASE 
0076 *09370000* 


09371000 09374000 


BASENUM 
0003 #01000860* 


02192500 #025810004409028920» 


BATMAN 
0003 *01001600* 


#92961500*% 02966500 402967000" 02968000 02978000 


BBC 
0003 *01634000* 


07487000 08221000 


BBW 
0003 #*01635000* 


06207000 07444000 07495000 08047000 08078000 08166000 08168000 


BEGINCTR 


0003 


BEGINV 
0003 


BETAL 
0090 


BE XP 
0003 


BFC 
0003 


BFW 
0003 


BIT 
0003 


BIT 
0103 


*01499000* 


07008000 %07008000%+07021000% 07024000 


14520000 


#01234000* 
05108000 


¥13379000* 


¥13390000* 


403006000+ 
06410000 


#91636000* 
06304000 


¥01637000* 


04218000 
08327000 


#02307000* 
02311000 


*16015000* 
16216000 


BITEDUST 


0035 


*05067000* 
05087000 


09252000 


13409000 


07487000 


07496000 


06307000 
08 146000 


05088000 


43771000 


07493000 


07572000 


07088000 
08 448000 


05089000 


14393000 


08135000 


07573000 


07542000 
08245000 


05090000 


07023000 «0702400044 140350004 44035000 #144540000% 14530000 «14520000 


14479000 


08142000 


07575000 


075146400 
08228000 


07579000 


07548000 
13263000 


0798 3000 


07526000 
13274000 


07585400 


07529000 
13606000 


08151000 


07572000 
14044000 


07586000 
14451000 


08425000 


BITOP 
0003 *01269000* 


06087000 
BLANKET 
0003 *01737350* 
04737500 
BLKAD 


0094 #14026000* 


02265400 02265250 02265600 


#14037000*w44044000% 14600000 


BLUCK 
0003 *03067000*« 


07750000 


BLUCKCTR 
0003 «01430000 


BNS 
0103 *16011000* 


16122000 


BNOF IX 
0107 *16118000* 


*16121000* 


BOOARRAYID 
0003 *01202000* 


BOOID 
0003 *01198000+" 


02967000 


BOULCOMP 
0003 *02955500* 


02971000 *02980000* 02983000 


07768200 414001000 14482000 


16124000 

16141000 

02977800 07047000 08057000 
02985000 


02265700 


14633000 


08058000 


02265850 


46495240 


12942000 


02265950 


14140000 


05325450 


09034500 


BOULEANDEC 


0094 


BOOLEXP 


0003 


#14043000* 


140138000 *14140000* 


#02065600* 


02343000 #029690004#02971500*% 02972000 


BOOLPRIM 


0003 


*02955000* 


02970500 £09972500 44029790008 02979500 


BOUPROCID 


0003 


#01194000* 
14294000 


BOUSTRPROCIO 


0003 


BoOv 
0003 


BOTTOM 
0044 


BRANCH 
0003 


BRANCH 
0003 


#01190000* 
14285000 


*01282000* 


*05439000* 
05446000 


*04116000* 
w04120400% 


*#03037000* 


BRANCHTYPE 


05451000 #05455000* 


04120400 04122000 


02976000 


02982500 


0003 *03025000* 


BRANCHTYPE 
0003 *07537000* 


07540000 07544000 


BRET 
0065 *08011000* 


06016000 %08033000% 08033000 08034000 08035000 08046000 08094000 4%08124000%%08 1800004 «08223000++08232000* 


BRNCH 
2066 *08092000* 


08148000 *08182000« 


BSD 
0103 *16021000* 


16417000 


BSS 
0103 #16020000% 


16415000 


BTYPE 
0003 *01452000* 


BUG 
0004 *01802000* 


04279000 04282500 


BUILDLINE 
0002 *00504700* 


*02526000* 02526000 


BUMPL 
0003 *01477000*# 


04216000 06207000 06297000 06300000 07444000 07459000 07487000 07493000 07495000 07540000 07577000 


BUP 
0003 


B20 
0003 


0003 


0003 


0003 


0046 


0041 


0065 


0092 


07585000 08047000 08078000 08106000 08146000 08168000 08190000 


*01695000* 


08221000 


13628000 


#13333000* 43333000 14073000 #44079000%%14083000* 14084000 144088000 #44088000+« 44088000 


#14118000* 14118000 *£14364000w414 36900048 


*017147000* 


04449000 204247000 4%04248000% 04279000 04284500 04282000 04282500 
09447080 


*01562000* 


#92682000*% 02686000 #92701000»% 02705000 2027580004 02789000 402789000 #40 2801000 4402803000 


04285000 


¥02811000% 02827000 *92842000% 02842000 02849000 02850000 #02923000% 06087000 


06099200 06168000 07600300 07604320 07667000 %07667000% 07669000 


#03047100* 


#04203000* 
04205000 04209000 04241000 #04216000»% 04218000 


#06064000* 
06064000 06066000 06194000 07035000 07036000 


*05334100* 
05334100 05334500 05400000 054114100 


*08020000* 
08021000 


#13673100* 


07727050 


04285500 


06090000 
08035000 


14039000 


14116000 


05376400 


02803000 
06093000 
16232500 


14118000 


09434000 


02811000 
06099100 


13673100 13673350 
CALL 
0003 401721000*% 
05402300 05405000 05407000 
CALL 
0065 *08072000* 
08079000 08098000 08108000 
CALLA 
0003 «01720000 
04721000 05402,00 05405000 
CALLINFO 
0003 #01722000* 
07397300 #14481400% 14483300 
CALL STATEMENT 
0094 #140137000* 
14132000 14137300 «*14505000" 
CALLSWITCH 
0003 *05315000* 
05316000 143263000 
CALLX 


0003 *01722000* 
07397300 *07397500% 07397500 


CALLA? 
0003 *01721000* 
05402400 05405000 05407000 
CARD 
0003 ¥01557000* 
02213750 02245500 02216250 


CARD 


05409000 05428000 05430000 
08130000 06217000 

05407000 05409000 05428000 
14483400 


14481100 #14481100% 14483500 


05409000 05428000 05430000 


09284500 


07397400 


05430000 


07397400 


07397500 


07397400 


07397500 


08072000 


07397500 


14483400 


14483400 


14483400 


0003 *02188000* 
02188000 02188500 02202750 


CARDCOUNT 
0002 *#00504150» 


02234500 #02234500« 


CAROLAST 
0009 *02210000* 


02210750 *02216000* 


CARDNUMBER 
0002 ~00504100* 


*02228000* 


CARDONLY 
0009 *02210000* 


02210750 #02215250« 


CARDOPTION 
0016 #02363000* 


*#02429000" 02436000 


CBUFF 
0003 *01561056* 


02213750 02214000 02215500 


49) 
0063 #07653500* 


07654500 07655000 08083000 


coc 
0003 #01638000* 


15392000 15356000 


CELL 
0040 #05325040* 


03325050 05325130 05325450 


02215750 


08084000 


05325180 


02216250 


05325220 


02216500 


05325330 


07025010 07029000 


05325350 05325360 


05325380 


05325390 


03325400 


05325410 


CHANGESE®@ 
0003 *01741200* 


01741300 


CHAR 
0003 *01299040* 


14461100 


CHAR 
0082 wi0234000+ 


10242000 


CHARCOUNT 
0082 *10230000* 


10242000 


CHECKBIT 
0003 #01000920*% 


01001210 


CHECKER 
0003 *05113000* 


05120000 


CHECKTOG 
0003 «01001210 


CHKSOB 
0003 *13209000* 


14289000 
CHS 
0003 01639000" 
06021000 


CIV 


05325420 


02193250 


10252000 10255000 
10250000 40251000 
02496000 

05246000 07070500 
08189000 086219000 


19256000 610256000 #4402640004% 10289000 


07398000 


08054000 


12944000 


15085000 


0003 


CLASS 
0003 


CLOR 
0003 


CLCR 
0009 


CNT 
0003 


CNT 
0003 


coc 
0003 


COCT 
0063 


CODE 
0003 


CODE 


¥01238000* 


#01148000* 

*0 2705100 #40 2850000 4%02851000% 02886000 
08057000 42120000 42425000 143201000 
15192000 15428,;00 145233009 45276020 

*#01330000* 

#02216500%2022477508 02218000 02218250 

¥02202750* 

02203500 02209000 

*02001838* 

02001838 02004844 

*02001858* 

02001858 02001866 02004870 02004892 

*01640000* 

15095000 15290000 15344000 45355000 

*07653500* 

07656500 07657000 07671000 
¥01556900* 
04147900 04296900 05312000 07662000 

09393400 09393430 09400000 09401000 


02920000 


13226000 
15276090 


02224500 


07668500 
13651000 


02924000 «029665004 02968000 


13677200 
13295400 


076699000 
13746000 


14062000 
13303000 


07671500 
16495100 


44091000 
15333000 


08999200 


04509000 


14425000 
15344000 


08999575 


05350420 


14549000 
15351000 


08999700 


07044000 
19086000 


09393350 


0003 *04130000* 
04130000 04134000 04231000 


COUISK 
0003 *01561300* 


08999450 08999375 08999275 08999300 08999350 
09398000 


COL 
0041 *05344000% 


COLON 
0003 #01260000*% 


02637000 05276000 06318000 06320000 07597500 
13753100 143756000 143760000 16160000 


COLON 
0021 *02637000* 


02641000 *02663000* 


COM 
0003 *01641000* 


COMCOUNT 
0007 *02089500* 


02090500 02111500 02118000 


COMMA 
0003 »04261000* 


063134000 07067000 07095000 076044340 07673000 


12020000 12033000 12052000 12056000 12125000 
449223000 142597410 44268000 44356000 44404000 


COMMANTS 
0007 #02092000* 
02097500 02105000 


COMMENTS 


08999375 


07600100 


08445000 


13351000 
49287000 


08999550 


07600600 


08150000 


13403000 
15293000 


08999575 


07604020 


08153000 
13409000 


08999600 


07727010 


19263700 
13756000 


08999700 


07727030 


10282000 
13762000 


06999705 


O7727070 


12010000 
14197000 


0007 #02092000* 
02106500 


COMMENTV 
0003 *01253000* 


02886000 


COMMON 
0054 *07037000* 


07045000 


COMPAR 
0009 *02210500* 


02246750 


COMPARE 
0003 *02188000* 


02490000 


COMPARECODE 
0109 *#16192000* 


16208000 


COMPLETE 
0021 *#02637000* 


02658000 
#02909000* 


COMPOST 
0021 #02639000* 


02880000 *02882000* 


COMPOUNOTAIL 
0003 *07006000* 


07033000 


CONSTANA 


0065 #08013000* 


08015000 


02107500 


02920000 


07054000 


02218500 


02190250 


026670900 


07768440 


08074000 


02108000 


08034000 


07058000 


402224250" 


02203500 


02680000 


07768200 


08099000 


07064000 


07074000 


02226000 02228450 


02705200 02715000 


13772000 44442000 


08181000 


07076000 


02232000 


02757000 


14512000 


07084000 #07094000% 


02233500 


02852000 


14524000 


02441000 


02877000 


16489000 


08188000 #08211000#*08224000#408227000~4 


02486000 


02877020 


02893000 


02894000 


CONSTANB 


0065 *08013000* 


CONSTANC 


0065 *08013000* 


CONSTANT 


0003 *03034000% 
#94163000% 


CONV 


0003 *02041000* 


CONVERT 


0003 *02248000* 
#02260000% 


CoP 
0003 


CORADR 
0003 


CORE 
0076 


CORNER 
0003 


COUNT 


08043000 


08185000 


CLEAN 


14604000 


02043000 


*01371000* 


02550000 


¥01344000* 


05248500 


+09370000% 


09371000 


#02011000% 


02011000 


08112000 


08195000 


04217000 


02228000 


027538000 


04280000 


05250000 


09375000 


02012000 


084116000 «08121000 08183000 


#08204000* 


07459000 


02251000 


02796000 


04283500 


08218000 


07496000 


02255000 


02803000 


405250000» 09282600 


09393240 


07549000 


02259000 


02823000 


09388000 


08494000 wO8205000*% 082135000 


07585000 


02502000 


13653000 


08170000 


02984000 


08490000 


02592000 


13744000 


14040000 


14168500 


0003 *01313000* 


02428500 02129000 02251000 02252000 02278000 #02327000% 02366200 *02371000% 02373000 *02499000««02590000* 
#02602700%#02647000% 02685000 02686000 402691000 02695000 %02698000% 02698000 02699000 4#02699000% 02703000 
02705000 02790000 02796000 02798000 02803000 02810000 02817000 02880000 02881000 *02889000**02958500* 
05325070 66062000 07668000 07670000 07674000 40241000 12109000 #12121000% 13302000 144259010 16392000 


COUNT 
0003 *02062500* 


02062500 02064000 


COUNT 
0007 *02090000* 


02121500 


COUNT 
0034 #05016000* 


05017000 05028000 


COUNT 
0035 +*05067000* 


05067000 05071000 05077000 05080000 


COUNT 
0046 *06062000* 


06074000 06075000 406075000% 06303000 06442000 4061420004 06419000 #06119000% 06120000 06421000 06122000 


COUNT 
0040 *05325070* 


05325150 05325160 05325210 05325320 05325330 


COUNT 
0083 *10241000*% 


#10242000* 40245000 «10247000% 10247000 10249000 10252000 10255000 40256000 


COUNT 
0083 10236000 


10237000 10240000 


COUNTY 
0007 


CPLUS1 
0003 


CPLUS2 
0003 


CREL 
0028 


CRF 
0103 


*02089500* 
02090500 02121000 02123500 


*01713000* 


#01714000* 


#04167000* 
#04473000%«04183000% 04487000 


#160100008 
46121000 146200000 46370000 


CROSSHATCH 


0003 


*01262000* 
02640000 10279000 


CROSSHATCH 


0021 


D 
0003 


D 
0003 


D 
0003 


#02640000* 
02642000 *02744000* 


*02001858* 
02003890 02001895 02001896 


#02001838*% 
02001842 02001948 02004850 


#03047100*% 


16408000 


DA 


0012 


0012 


0028 


0063 


0082 


0085 


0098 


0105 


0104 


w022644008 
02264500 


*02264700*% 
02264800 


*04166000* 
*04175000% 


*07658500* 
07659500 


*10257100* 
19257200 


*12103000* 
12104000 


#142542008 
14254300 


*16067000* 
*16070000* 


#16031000* 
#36032000* 


04184000 


07660000 


12101000 


16079000 


16032000 


08020000 


08027000 


08052000 


08063000 


06072000 


08080000 


08083000 


08084000 


0003 *04559020* 


DATE 
0005 #01823000* 


01823000 04825000 


DATER 
0005 #01823000* 


01825000 04827000 01833000 


DATIME 
0003 *01820000* 


04837000 02483000 02195000 02495750 02244200 
13653500 13676000 


DBLSTMT 
0003 *03060000* 


07753000 #12002000% 142059000 


DBV 
0003 *01243000* 


16417000 


OCINTYPE 
0003 «015614208 


09430060 


DCV 
0003 *01248000* 


16208000 16338000 


DDES 
0003 *01299000* 


07677000 


DEBLANK 
0007 #02091500* 


02094500 02100000 


02228750 


02264950 


02421000 


05039600 


05325490 


07025020 


DEBUG 
0003 *04277500* 


04286000 


DEBUGBIT 
0003 *01000930* 


01001220 


DEBUGTOG 
0003 #01001220* 


02533000 


DEBUGWORD 
0003 *04130000* 


04149000 


DECK 
0003 *01561500* 


09435000 


DECKBIT 
0003 *01000940* 


01004230 


DECK TOG 
0003 #01001230* 


09405000 


DECLARATORS 
0003 #01214000* 


07767000 
DECLARELABEL 

0003 *16000100* 

16253100 


DECLSW 


04297000 


02531000 


02602500 


09447000 


02474000 


09414040 


10277000 


16482200 


02533000 


04448000 


09447090 


09405000 


094214000 


14426000 


02602500 


04297000 


09414010 


09447040 


14370000 


04448000 


09421000 


43651100 


44396000 


04297000 


09447040 


14516000 


13654400 


16434000 


0094 *14018000* 
14134000 


DEF INEARRAY 
0003 *01491000* 


02202030 
02719000 


02202060 
02902000 


02202040 682202050 
02721000 02900000 


DEFINECTR 
0003 ~01481000* 


02242500 
02903000 


02715000 «10262000 10278000 «102780004 10280000 


DEF INEDEC 
0094 *14047000* 


14021000 #44254000~4 


DEF INEDIO 
0003 *01180000* 


02894000 142120000 144259010 


DEF INEGEN 
0003 #10228000* 


10286000 12124000 144266000 


DEF INEINDEX 


0003 #01481000* 
02212500 02748000 


DEF INEV 
0003 ~01296000» 


10278000 


OEL 
0003 +01642000* 


DEPTH 
0003 wO5400000* 


02749000 202724000» 02724000 


02217250 02247500 02217750 


149283000 *10283000%%102840008 


02898000 02900000 02902000 


02218000 02366100 02602600 


02903000 #02905000% 02905000 


#05402100*#05403000% 05407000 *#05409000* 05426000 


DESC 
0065 *08016000* 


08098000 08108000 


DEST 
0003 *02045000* 
02048000 

DIA 


0003 *01680000* 
04315000 04550000 


DIALA 
0003 *01502000* 


#04315000%808152000" 


DIALB 
0003 *01502000* 


*04317000*408152000* 


D118 
0003 *01681000* 


04317000 


DI@ 
0003 01237000 


DISK 
0003 *01561400* 


01561400 045614600 03828500 09425900 09429000 
DISK 
0076 «09370000 


09371000 09376000 


DISKADR 


03431000 


09430075 


09430490 


0003 


OOLT 
0044 


DOIT 
0092 


DOLLAR 
0021 


#01344000* 


05252000 *#05254000* 05254000 *09253100* 09389000 


#05334100*" 
05350160 05350200 


#13673100* 
13673450 13677300 


*02639000* 
02641000 *02729000% 


DOLLARCARD 


0003 


#02065500* 
02229000 02234000 40231,9000% 02604000 


DOLLARTOG 


0003 


*#01001540+ 
*02366000**02603000# 


DOLLAR2TOG 


0003 


DOSTMT 
0003 


DOT 
0003 


DoT 
0021 


#01691500* 
#02211600%«#02230100% 02234600 02421000 


*07482000* 
07488000 07759000 


#03015000* 
06178000 #06338000" 06346000 


¥02637000* 
02641000 #02668000+ 


02730000 


136393000 


DOTSYNT 
0003 


DOV 
0003 


DPTOG 
0003 


OSKIP 
0003 


DSS 
0103 


OSV 
0003 


OTYPE 
0003 


DUMMY 
0003 


OUMPDEC 
0094 


DUMPEE 


AX 
*05270000* 


*05286000* 


*01225000* 
07494000 


*01690000* 
02253000 


#02045000* 
02046000 


#16362000« 


16398000 


*91240000* 


#01452000* 


#01001470* 


#$4014000* 


14039000 #14149000* 


05286000 


08159000 


02784000 


02049000 


16491000 


06341000 


08186000 


02794000 


15112000 145233005 15276150 


02829000 12012000444 2016000« 


15341000 


0003 


*01547000* 


DUMPINFOQ 


0003 


DUMPOR 
0003 


DUMPY 
0003 


DuP 
0003 


0003 


0026 


0033 


*02264000* 
02266100 


#01552000*% 


#01287000* 


#01643000* 
07524000 


*02264100* 
02265500 


*03054000* 
04099000 


¥04500000* 
04526200 


#04099000* 


04100000 


#04504000* 
04506000 


02468000 


15095000 145306000 


02265600 02265700 


12123000 413293000 13333500 13342000 43755500 


04530000 04536000 04543000 04549000 04555000 


04102000 *04112000* 


04508000 +*04509000" 04509000 04522000 


16000600 


E 
0085 #12103000* 


12103000 12105000 


0103 16065000 
16070000 


E 
0103 *16085000* 


16089000 16093000 


EOITLINE 
0003 ~02183500* 


02187000 09395000 02495750 


EDOQC 
0003 *13683000* 


13685000 43687000 43693000 


EDOCINOEX 
0003 *01710000* 


El 


0046 *06061900% 


*06104300" 06107200 


EL 


0085 *12102000* 


¥12112000* 12114000 


ELBAT 


0003 ¥01319000+* 


#121325000% 


02265400 
05248000 
05350460 
06326000 


02265250 
05222000 
05350 180 
07031000 


02940000 
05280000 
06046000 
07070000 


02214200 


43745000 


12126000 


02916000 
05281000 
06044000 
07070500 


02228750 


137 16000 


02920000 
05344570 
06072000 
07071000 


02424000 


13732000 


02923000 
05344645 
06104300 
07396000 


05038000 


13733000 


02924000 
05344620 
06108000 
07430000 


07025020 


14002000 


05089000 
05344660 
06166000 
07516000 


14003000 


05189000 
05344700 
06185000 
07546300 


05216000 
05344710 
06324000 
07548000 


02217000 
03359120 
06325000 
07521000 


07554000 
08034000 
09437000 
12125000 
14314000 
16159000 
16370000 


ELBATWORD 
0003 *05113000* 


05116000 


ELBATWORD 
0003 *05207000* 


05208000 


ELBATWORD 
0062 #07595000*" 


07599000 
ELBW 


0059 *07503000* 
*07521000* 


ELCLASS 
0003 *01328000* 


07566000 
08037000 
09447000 
13200000 
14349000 
16200000 
16376000 


051189000 


052090900 


07601000 


07527000 


07572000 
08476000 
09447010 
13364000 
14352000 
16204000 
16379000 


#05002000 #¥05003000% 05409000 


06055000 
06441000 
06422000 
07095000 
07550000 
07668000 
08038000 
08 184000 
12056000 
13758000 
14326000 
19141000 
16132000 
16326000 
16410000 


ELCLASS 
0082 ¥10258100* 


#10263400% 


06076000 
06146000 
07012000 
07096000 
07553000 
07727000 
08303000 
08 486000 
13220000 
43760000 
14336000 
15233003 
16198000 
16330000 
164145000 


19263700 


06084000 
061451000 
07043000 
07 399000 


#07556000% 


07727040 
08413000 
08229000 
13331000 
13762000 
14357000 
15233026 
16204000 
16335000 
16447000 


19264100 


07383000 
09424000 
09447070 
13372000 
14353000 
16208000 
16408000 


05304000 
06104400 
06475000 
07018000 
07404000 
07578000 
07727030 
08428000 
19258 ,00 
13337000 
13763000 
44370000 
15276040 
16210000 
16336000 
19437000 


19264300 


07599000 
09425900 
09447080 
43394000 
14399000 
16241000 
16442000 


05344550 
06105000 
06180000 
07021000 
07409000 
07600 300 
O77 27080 
08433000 
12922000 


*#13338000% 


44137000 
14396000 
15276440 
16242500 
16337000 
16477000 


40264410 


07667000 
09427500 
094467090 
13767000 
14519000 
16212500 
16435000 


06004000 
06106300 
06198000 
07026000 
07434000 
07600400 
07728000 
08139000 
42028000 
13338000 
141935000 
14404000 
15287000 
16243000 
16338000 
16478000 


10277000 


07745000 07768400 07994000 
09429000 09432000 09433000 
10277000 42045000 42024000 
13768000 44062000 14129000 
12977000 45276010 146000700 
16254000 16321000 16329000 
16449000 
06033000 06034000 06036000 
06107100 06114000 06115000 
06302000 06316000 06340000 
*#07032000« 07052000 07053000 
07485000 07494000 07506000 
076044190 07665000 07665500 
*#07749000 #40775 10008%077681430% 
08445000 08350000 081453000 
12033000 42035000 42039000 
13391000 13400000 43403000 
1449197000 14259020 14259120 
14479000 444536000" 145078000 
19294000 45339000 45349000 
46230000 46253000 46345000 
46339000 16341000 46374000 
16481000 46482100 146482300 
19279000 +#40282000% 


07995000 
09434000 
12036000 
14220000 
16121000 
16342000 


06046000 
06138000 
064141000 
07075000 
07507000 
07666000 
08031000 
08159000 
12042000 
13409000 
14260000 
45083000 
16119000 
16349000 
16379000 
16482500 


08029000 
09435000 
12044000 
14221000 
19124000 
19344000 


06052000 
06139000 
06446000 
07084000 
07541000 
07666500 
08032000 
08182000 
12052000 
13756000 
14325000 
12119200 
19131000 
16320000 
16381000 


ELCLASS 


0087 #13220000* 
13226000 
ELSEBRANCH 
0050 #06295000* 
#06300000* 
ELSEV 
0003 #01227000* 
06302000 
EMIT 
0003 *03028000* 
04004000 
04348000 
06099;00 
07998000 
16133000 
EMI TB 
0003 *03036000* 
404114000 
07540000 
08215000 
EMITC 
0003 #04010000* 
04014000 
16216000 
EMITD 
0003 *03050000* 
404341000" 
EMIT? 
0003 *#04500000* 
06344000 


13246000 


06307000 


07567000 


04007000 
04531000 
06194600 
08049000 
16219000 


04125000 
07579000 
08221000 


14451000 
16342000 


04322000 


15124000 


13278000 


07578000 


04014000 
04535000 
06448000 
08050000 
16232000 


04218000 


07585400 
13606000 


16032000 
16352000 


04556000 


13233018 


16220000 


04019000 
04550000 
06166000 
08122000 
16266000 


06207000 


07586000 
14941000 


16079000 
16370000 


05203000 


15276210 


16230000 


04024000 
04551000 
06194000 
08448000 
16387000 


06301000 
07608000 


16121000 


46378500 


06332000 


45370000 


04086000 
04554000 
06308000 
08153000 
16394000 


06307000 
08047000 


16124000 
16379000 


07093000 


04221000 
06054000 
07093400 
08227000 
16453000 


07088000 
08078000 


16200000 
16383000 


07093200 


#04291000« 


06054100 
07431000 
44451400 


07444000 
08086000 


16208000 
16408000 


15100000 


04302000 


06082000 
07436000 
15376700 


07487000 
08127000 


16211000 
16415000 


15233013 


04315000 


06087000 
07544000 
16080000 


07495000 
08146000 


16212500 
16447000 


15276070 


04347000 
06089000 
07604070 
16122000 


07496000 
06168000 


19243000 


12308000 


EMIT JUMP 
0103 #16065000* 


16093000 
EMITL 
0003 #04003000* 
04032000 
13773000 
EMITLNG 
0003 *04098000* 
04112000 
EMITN 
0003 *04022000* 
04024000 
45233014 
EMI TNUM 


0003 *03049000* 


04423000 404203000, 


EMITO 
0003 *04006000* 


04038000 


04531000 
07078000 
08049000 
08189000 
13743000 
15276090 
15351300 


EMITPAIR 
0003 *«04028000* 


04034000 
15233014 


EMITSTORE 
0003 *13214000* 


13230000 


16255000 


04205000 
14506500 


06148000 


04242000 
13276080 


04023000 
04537000 
07087000 
08050000 
082144000 
13752000 
15290000 
15354000 


04523000 
15267000 


04544000 


07573000 


04524000 
15302000 


042025000 


04033000 
04545000 
07094000 
08065000 
08219000 
13764000 
15302000 


05204000 


032222000 


07575000 


05202000 
153441400 


063468000 


04034000 
05226000 
07408000 
08068000 
08228000 
13765000 
15303000 


05227000 


06110000 


08150000 


07092000 
153514200 


07089000 


04109000 
05346000 
07434000 
08070000 
12024000 
13766400 
15306000 


07074000 


06206000 


08220000 


08075000 
45353000 


07442000 


04112000 
06024000 
07542000 
08079000 
42038000 
14467000 
15309000 


07090000 


08046000 


08179000 
162614000 


08021000 


04122000 
06077000 
07546400 
08094000 
12954000 
14389000 
18340000 


08090000 


08067000 


08242000 


08089000 


04212100 
06110300 
07524000 
08123000 
13263000 
14451000 
15333000 


13214000 


08077000 


12036000 


12044000 


04223100 
06172500 
07525000 
083425000 
13264000 
15095000 
15344000 


13230000 


13264000 


15094000 


129123000 


04311090 
06187000 
07526000 
08426000 
13268000 
15196100 
15344 400 


19107000 


13267000 


191149200 


13229000 


04507000 
96203000 
08044000 
08166000 
13740000 
19106200 
15351200 


12233010 


EMITV 
0003 *04017000* 


04019000 
08044000 
15344200 


EMITWORD 
0003 #04142000*% 


04452000 


EMIT21 
0033 *04503000* 


04526200 
ENDOFITALL 
0003 *05101100* 
#16495210*% 


ENDREADTAPE 
0010 «02201510» 


02202010 #02202080« 


ENOTOG 
0003 *01415000* 


*02653000»" 


ENDY 
0003 #*01228000* 


05409000 


ENS 
0103 ~16013000% 


16133000 


ENTER 
0003 #03069000* 


13390000 *13714000" 14138000 


04184000 
08075000 
15352000 


04187000 


04530000 


02653000 


07043000 


04484500 
08166000 


07604320 


04536000 


02680000 


07018000 


04524000 
08212000 


04543000 


02884000 206024000 06022000 ~060220004x07046000e 07019000 407020000% 


07748000 


14139000 


05239000 
12047000 


04549000 


07749000 


14140000 


03226000 
13236000 


04555000 


16477000 


14141000 


05316000 
13/39000 


14162000 


07443000 
15097000 


07439000 
15119300 


07546300 
15276060 


08023000 
19290000 


ENTRY 
0003 


EOF 
0009 


EOF 
0067 


EOF 
0077 


EQFT 
0010 


EPART 
0021 


EQ 
0003 


EQUAL 
0003 


EQvoP 
0003 


ERR 
0003 


*#03055000* 
#13314000% 13729000 44465000 14194000 44207000 


#02210250* 
02216250 *02217000* 


¥08999050" 
08999150 08999375 %08999400* 


*09394000* 
09399000 *09413000* 


*#02201510* 
02201750 w02202020« 


#02639000* 
*02810000* 


#01644000* 


*#02062500# 
02064000 02064500 02881000 


#01274000*% 
02965500 02971000 06036000 


#01718000* 
02211500 04145000 04300000 *05405000* 05409000 


14259010 14319000 


051130000 05285000 


14333000 


060053000 


14403000 


06086000 


14409000 


06095000 


06107000 


ERRMAX 
0003 


ERRNUM 
0003 


ERRNUM 
0003 


ERRNUM 
0003 


ERRNUM 
0003 


ERRNUM 
0034 


ERROR 
0007 


ERROR 
0003 


ERROR 


06109000 
06424000 
07513000 
08039000 
14259120 
15343000 
16253100 


#01001550* 


02211500 #02502000#«09028910« 


#01716000* 


#01718000* 


#03105000* 
05106000 


*#05012000* 
05044000 


#05016000* 
05017000 


*02091500* 
02114000 


#05110000* 
07667500 


06116000 


06423000 
97517000 


08134000 
15984000 
15364000 
16316000 


05107400 


05091000 


05026000 


02119000 


07672500 


06142000 
07045000 
07598000 
08160000 
15415000 
15367000 
16347000 


05107200 


07674000 


06151000 
07953000 
07600700 
08178000 
13119000 
16125000 
16367000 


06154000 
07097000 
07604130 
08229000 
15233006 
16132000 
16384500 


06176000 
07099000 
07667500 
12907000 
15256000 
4160000 
46397000 


06302000 
07405000 
07672500 
12033000 
19264000 
16205000 
16448000 


06334000 
07432000 
07674000 
12039000 
15276470 
16206000 
16483000 


06411000 
07437000 
07727080 
12952000 
15276490 
16207000 


06415000 
07485000 
07732000 
12056000 
15294000 
16214000 


064147000 
07494000 
07994000 
14259090 
15297000 
16217000 


0022 *02958000* 
02959000 


ERRORCOUNT 
0002 *00501000* 


02211500 05035000» 05035000 05087000 09028000 +*09028900% 09386000 09391000 


ERRORTOG 
0003 *01412000* 


05032000 *05047900*#05119000*%*07009000*407 063000807 6459 00%«07/50000%#132820008#141 30000841 444300Q« 14511000 
#16130000+* 


EXAMIN 
0002 *#00511000* 


00512000 00529000 00531000 00533000 00536000 02214200 02225750 02228250 02230000 02230100 02965000 
02680000 02697000 02745000 02750000 02753000 02786000 02/791000 02807000 02843000 02888000 


EXIT 
0003 #01758000* 


01763000 01764500 017982000 


EXIT 
Q009 *02210000*% 


02215750 *62225000« 


EXIT 
0007 *02091500* 


02104500 02142000 02414500 02135500 02138500 02419500 


EXIT 
0016 *02360000« 


02375000 02414000 02443000 02486000 02488000 #02602000+ 
EXIT 
0022 «02957000« 
02958000 02959000 02962500 #02967500« 


EXIT 
0035 +05049000* 


EXIT 
00348 


EXIT 
0032 


EXIT 
9033 


EXIT 
0044 


EXIT 
0041 


EXIT 
0049 


EXIT 
0046 


EXIT 
0047 


EXIT 
0040 


EXIT 


05094000 *05100000*% 


*05273000* 


05284000 *05286000* 


704311010" 


04311100 ~04322100« 


*04501000* 
04526200 


*05439000* 
05454000 


wO5334000* 
05344760 


#06195000* 
06200000 


¥06061000* 
06069000 


#06137000" 
06142000 


*05325030* 


04532000 


05457000 


05372000 


06204000 ~06209000+ 


06086000 


06149000 


04538000 


*#05458000* 


#05375000« 


06096000 


06154000 


04546000 


06107000 96109000 


06176000 «06482000% 


04552000 #04558000% 


06116000 »*06125000* 


0054 


EXIT 
0059 


EXIT 
0051 


EXIT 
0052 


EXIT 
0055 


EXIT 
0060 


EXIT 
0062 


EXIT 
0061 


EXIT 
0064 


EXIT 
0065 


*07037000* 
07097000 07099000 #07101000* 


*07504000% 
07514000 07516600 07517000 07519000 *07531000* 


#06315000* 
06333000 *06335000* 


#06339000* 
06341000 *06346000* 


*207394000% 
07402000 07405000 +*074250008 


*075389000* 
07555000 *07557000* 


#07594000* 


07598000 07600700 #07646000* 


407562000 
07573000 07574000 07576000 075791300 07584000 «07587000»% 


207726000 


07727080 07732000 07733000 07735000 07737000 07739000 
07755000 07757000 07759000 077614000 07763000 077658000 


#08017000* 
08092000 08178000 08222000 08229000 #08232000* 


07743000 
07768460 


07746000 
07771000 


07749000 


07751000 


07753000 


EXIT 
0066 


EXIT 
0084 


EXIT 
0082 


EXIT 
0103 


EXIT 
0109 


EXIT 
0102 


EXIT 
0107 


EXIT 
O12 


EXIT 
0110 


*080920008 


08134000 


*12005000* 


12033000 


#10259000* 


19263900 


#16475000* 


16484000 


*16193000* 


16205000 


*15076000* 


15081000 


15276420 
15365000 


*#16117000* 


16125000 


#16365000* 


16367000 


#16251000* 
16253100 *#16270000« 


08160000 


12040000 


10275000 


16487000 


16206000 


15419400 
15276450 
15367000 


16132000 


16384500 


#081472000+ 


12052000 


19284000" 


16490000 


16207000 


15112000 
15276470 


#{5377000% 


#16144000% 


#16398000% 


12056000 #12058000# 


1649 4000 


16214000 


15115000 
19276390 


16492000 


46493000 «£16494000% 


16217000 #16239000« 


43119000 
15276230 


43233008 
40297000 


13233024 
19305000 


19233005 
15294000 


15256000 
15337000 


15261000 
15341000 


42275000 
19343000 


EXIT 
O1ni 


EXPECT 
0003 


EXPECT 
0003 


EXPRSS 


0003 


0003 


0003 


0018 


0018 


0035 


¥16313000* 
16316000 


*#03009000*" 


#06060000# 
06119000 


#03007000* 
*06057000* 


*#01688000* 


05068000 414077000 «414078000 w414115000% 14145000 


*02262000* 
02262000 


#02441000*% 
02443000 


*024460008 


02448000 
03029000 
03054000 
04040000 


*05068000»" 
05069000 


16342000 


06299000 


02263000 


02635000 
03036000 
03054004 
04011000 


05076000 


16347000 #46355000« 


02955500 
03037000 


03053000 
04047000 


02980000 
03038000 
03055000 
04022000 


03009000 
03039500 
03057000 
04029000 


16031000 


03041000 
030414000 
03067000 
04030000 


03019000 
03042000 
03068000 
046115000 


03020000 
03047000 


03070000 
04116000 


03024000 
03047400 
03071000 


03025000 
03049000 
04003000 


03028000 
03050000 
04006000 


0067 


0077 


FACTOP 
0003 


FCR 
0003 


FCR 
0003 


FETL 
0003 


Fed 
0018 


FETCH 
0003 


*08999075* 


08999100 


#09393700* 
09393710 


#13673100* 
13673100 


#160310008 


*#01299100* 


13253000 


#013300008 


021482750 
02230100 


*02016000* 
02016000 


#04130000% 
04132000 


*02441000% 
02444000 


*022620008 
02263000 


09393720 


13673350 


024194000 
02421000 


02017000 


02445000 


08999475 


09393730 


02495000 
02731000 


02452000 


09400000 


19228000 10234000 


02195750 *02214000% 02214200 *02225250*% 02225750 
05038000 *07025010* 07025020 «07025030* 


09401000 


02228250 


02228750 


02230000 


FIEL 
0003 


FIEL 
0076 


FIEL 
0091 


FIEL 
0092 


FIL 
0076 


FILEDEC 


0094 


FILETO 
0003 


FILEV 
0003 


FILLIT 
0040 


#02056000* 
02058000 02059000 


#09364000" 
09365000 09366000 09367000 


#13633000* 
13686000 13637000 


*13661000* 
13665000 13667000 


#09370000* 
09372000 


*#14015000* 
44020000 *14158000* 


*01299300* 
14430000 


*01296000" 


#05325040 
05325440 05325460 05325470 


FILLSTMT 


03325480 


0003 «07647000 
07677500 


FINAL 
0082 #10258300*% 


*10263900* 


FINAL AX 
0076 *09378000* 


09384100 


FINDOPTION 
0003 *02307000« 


#02347000% 


FIN] 
0403 *16475000* 


16476000 


FINIS 
0007 *02091500* 


02095500 


FINISHED 
0029 *04204000* 


04220000 *04225000* 


FINISHNUMBER 
0021 *02638000* 


#02847000* 


FIRST 
0003 *05271000* 


*05280000* 


FIRST 
0051 *06314000* 


¥06324000* 


13396000 


10264400 


02318000 


16478000 


02096500 


05282000 


06327000 


19264420 


02327000 


16483000 


02099500 


06332000 


02967000 


16486000 


02110000 


16489000 #16495000*% 


02125500 


FIRST 
0052 +06339000* 


06341000 06344000 


FIRSTTIME 
0009 *02210000* 


02210750 *02213500* 


FIRSTX 
0003 #01621000* 


13608000 #13642000« 43623000 44051000 ¥14052000% 14600000 #44608000« 


FIRSTXO 
0094 #14033000* 


*14051000* 14608000 


FIX 
0018 #02446000* 


02451000 02454000 


FIX 
0086 «07427000 


#074300004807433000% 07439000 07440000 


FIX 
0066 *08082000* 


08090000 08157000 08171000 


FIXc 
0103 16029000" 


16057000 16341000 46233000 46236000 46238000 
FIXDEFINEINFO 
0003 #01717900* 
02896000 #12101000%#1210800U" 


FIXHDR 


0077 #09393700* 
09393750 09430075 
FIX] 
0109 #16195000« 
*16248000* 16233000 
FIX2 
0109 *16195000* 
*#16232000* 16236000 
Fi 
0003 *01420000* 
06140000 07080000 
FLAG 
0003 *01716000* 
02226500 02376000 
02899000 02958000 
05119000 05344610 
07061000 07600000 
49264490 =642025000 
13394000 43395000 
13766009 614066900 
14220000 44263000 
14358000 14371000 
16434100 
FLIPFLOP 
0093 *13750500* 
#13752000 40137555008 
FOOT 


0066 #08091000«% 
#08162000* 08166000 


FORLIST 
0065 #08080000¥" 


08156000 08172000 


FORMAL 


16238000 


07058000 


02421000 
02959000 
05344664 
07600420 
12030000 
13400000 
14435000 
14286000 
14442000 


13755500 


08231000 


07073000 


02501000 
02962000 
05347000 
07600900 
412115000 
13404000 
14136900 
14295000 
14486000 


07083000 


02593000 
02976500 
05348000 
07604000 
12126000 
43651100 
14137500 
14341000 
44508000 


12037000 


02599000 
02977500 
05370000 
07604068 
13210000 
13729000 
14146000 
14326000 
19376600 


13110400 


02650000 
04043000 
06104520 
07674500 
13282000 
13753000 
14153000 
14333300 
16033000 


19276240 


02686500 
04476000 
061440200 
07728000 
13332000 
13754000 
14161080 
14337000 
16071000 


02696000 


#050120008 


06200000 
07747000 
13338000 
13758000 
14165000 
14339000 
16163000 


02824000 
05104000 
07024000 
09282600 
13340000 
13764000 
14168000 
14346000 
161719000 


02828000 
03106000 
07025000 
19243000 
13386000 
13763000 
14187000 
14351000 
16265000 


0003 *01149000* 
05209000 


FORMALF 
Q003 ~O1591000% 


07400000 


FORMALNAME 
0102 ¥15076100* 


15092000 


FORMALV 
0065 *08014000* 


08056000 


FORMATBIT 
0003 *010009S0* 


01004240 


FORMATOG 
0003 ¥01001240" 


14461500 


FORSTMT 
0003 #03052000* 


08218000 05236000 


07411000 


15105000 
08065000 08098000 
02567000 144643500 
14493500 


07755000 *08008000« 08232000 


FORY 
0003 *01223000* 


FORWARDBRANCH 
0066 ~08091000* 


*08152000* 


FORWARDV 
0003 *01254000*% 


14467000 


08157000 08169000 


07070000 


08408000 


14493500 


08171000 


09133800 43202000 


08430000 08479000 


13244000 


08242000 


14427000 


¥13202000 Wt 3328000H HI 3TbL 1004413343000" 134972000 #16000400s 


08247000 


08227000 


FORWART 
0066 *08084000* 


08086000 


FOULEO 
0003 *01583100* 


w04119500% 04449500 #04 451000 # 404207500 #40748 3500 W207 49 1500 #076040 10 #H1 45050008 


FOUND 
0015 #02309000* 


02313000 *02315000+« 
FOUND 
0029 *04204000¥ 
04209000 *04221000* 


FP 
0003 *#01420000* 


06164000 15119000 15349000 


FRART 
0021 *#02639000+ 


02682000 *02790000« 


FR 
0003 «014200008 


08228000 15305000 
FR 


0003 *03042000* 


FR 
0003 #13657000* 


13677100 13677250 %13677250% 13677250 13677300 


FRMT?IO 


0003 


FROM 
0003 


FROM 
0003 


FRUM 
0003 


FROM 
0003 


FROM 
0003 


FROM 
0003 


FROM 
0003 


FRONT 
0088 


*#01182000* 


#04116000* 
04120000 


*03037000* 


*03038000* 


¥03029000* 


*03011000* 


#07391000* 
07402000 


*06194000* 
06198000 


#07491000*% 
#07493000* 


FRSTLEVEL 


0003 


#01402000* 


05116000 #14478000% 


04120100 


07404900 


07496000 


04420500 


FS 
0003 *01420000* 


07739000 
15335000 


FUNCMONF ILE 
0003 #01543000* 


FUNCTOG 
0003 *01586000* 


13736000 


FUNC TOGO 
0094 *14034000* 


#14054000* 


FWOTQOG 


0099 #14274000* 


15102000 45304000 
15342000 15364000 
14054000 
14599000 


#14276000%414312000% 14333400 


*#01692000% 
#05304590% 


0003 #01610000* 


05344662 05375400 


15134000 
15367000 


14373000 


14978000 


15233008 


19233015 


15276100 


14487000 #14275000841428800088142960008 14411400 


19276110 15276160 15276190 


44443100 44452000 


#13231000% 13236000 4137180004 43723000 413724000 43726000 «437270008 43729000 414084000% 14085000 


14145000 


GENERATE 
O111 *16313000*% 


14416000 


16322000 #16345000« 


GEQ 
0003 *01647000* 


08050000 


141417000 «14278000 4414284000% 44284000 
*14310000% 44315000 414349000" 14349000 %414352000*% 14353000 *14446000% 


14292000 


14294000 %44296000« 44298000 
14449000 #44470000*% 44470000 


19334000 


14478000 %14599000" 


14094000 
14299000 


GET 
0003 +#03019000* 


04102000 041305000 04182000 #05307000* 05342000 %05312000% 07604050 


13258000 13267000 143273000 14168000 


GETF 
0002 *00523000* 


00524000 00526000 00527000 00529000 


GETLP 
0095 #14076000* 


*14084000* 14089000 


GETSPACE 
0003 *03051000* 


05432000 #05334000%#05375000% 05378000 


GETSYL 
0039 705309000" 


05310000 05332000 


GETVOID 
0003 *01756000* 


01784000 02410000 02485000 


GIT 
0003 *01719000* 


02901000 #0512300042051424000" 06104300 
13249000 43257000 144388400 44438000 
16257000 


GNAT 
0003 «030200008 


#05 128000 0405131000 4405432000 05433000 


GNC 
0007 *02091500* 


02097000 02104000 


16032000 


08162000 


07419000 
14483400 


05346000 


16092000 


13347000 


07412000 
15376300 


07516300 


14044000 


07438000 
46070000 


13267000 


07607000 


07441000 
16089000 


07608000 


07527000 
16138000 


08086000 


07539000 
16163000 


13235000 


07601000 
19254000 


GOGEN 
0003 #03023000* 


07518000 07529000 407535000 07545000 07572000 


GOMCP 
0059 *07504000* 


GOSTMY 
0003 *07501000* 


07531000 07763000 


GOT 
0077 «09393060 


09393130 09393470 09393190 


GOTOS 
0103 16249000 


16270000 16454000 46487000 


GOTSCHK 
0094 *14016000* 


14160000 


GOTSTORAGE 
0003 ¥13733000*" 


GOTSTORAGE 
0094 #14025000*% 


14160000 #*14160000* 
GOV 
0003 *01232000* 
07550000 07556000 


GRINCH 


07573000 


07575000 


07583000 


13274000 


0077 #09393060" 
09393130 09393470 09393190 


GRINCH 
0077 *09393250* 


09393350 09393400 09393430 


GS 
0003 +*05325010" 


033925460 05325470 05325480 


GS 
0041 #05344000* 


#9536459 24605 340600 64053446 152059446 20% 05344620 #05344660% 05344664 05344662 405344662% 05344662 «053447008 
05344720 405344740% 05344740 05344750 *05350000+% 05350460 05350200 #05371000»% 05373000 #05373000« 05375000 
05375400 *05376000«% 05376000 05376400 


GTAL 
0003 *01697000* 


13219000 43354000 43384000 43408500 43748000 43724000 43727000 144069000 44429000 44434000 14161000 
44463020 44464000 44259000 44259040 44259045 44259080 14278000 14281000 44296000 


GTl} 
0003 *01384500* 


¥02192500 402193000" 02193250 


GTR 
0003 «016500008 


GTl 
0003 «01384000* 


#02203500« 02205000 402452000% 02456000 492652000+ 02653000 02655000 4026580004 02659000 027346000 #02739000» 
92720000 02723000 «028230004 02630000 #02832000* 02832000 02833000 02834000 02838000 02839000 #02875000« 
02676000 02877010 02878000 02879000 02884000 02882000 402886000% 02894000 #04105000¢ 04107000 04109000 
04140000 404420 0044044205004 04423000 04422000 2045080004 04521000 04523000 04524000 #05446000% 05447000 
#95231000% 05233000 05235000 %05235000«405447000% 05449000 %07042000% 07043000 07044000 #07066000% 07067000 
07436000 *07539000*% 07540000 07544000 07545000 *07600950%#07727020" 07727070 #07994000* 07995000 *08088000« 
08060000 #09034400% 09034200 09433800 409133900% 09434000 09134100 09434200 4092530004 09253500 09254000 
09258000 409414040 09414080 09444090 4094150004 09415500 09416000 409416000% 09416000 09437000 ¥09447000« 
09417000 09448000 419250000" 10251000 #13226000* 43232000 43440000 43244000 43248000 #432510004w13256000« 
13259000 #13273000% 13274000 #13280000% 13282000 #43371000% 43373000 #414039000% 44041000 14116000 44203000 


GT1 
0097 


GTi 
0108 


GTe 


0003 


GTe 


0097 


GT3 
0003 


GT4 
0003 


GT4 
0097 


GT5 
0003 


*143333004414425000" 14427000 14429000 144430000 144437000 44447000 «144483200% 14483300 #15102000% 151406200 
15107000 #15295400* 15296000 16157100 #16254000* 16255000 16257000 46258000 16260000 46265000 16452000 


*14203000* 
*44206000* 14221000 414221000 14224000 


*16157100* 
#16159000* 16163000 16464000 16366000 16171000 46473000 


*01384000* 


*#02721000* 02723000 02834000 02839000 #02876000« 02877010 02878000 02879000 02881000 02882000 +#05233000* 
05234000 #05448000% 05450000 w07539000% 07545000 07595000 #07601000" 07604040 07604050 07604060 07604070 
07604090 #07604090% 07605000 07607000 07607100 07608000 #07609000* 09133800 09133900 09134000 *09134100+% 

*13284000* 13285000 13286000 14203000 *14430000*% 14431000 #14446000« 14448000 #16163000*% 16167000 16172000 

*16254000* 16255000 16266000 


*44203000* 
*#14217000* 14224000 


*01384000* 


01721000 05402100 4054021004%05405000# 05405000 4054070008 05407000 +#05409000% 05409000 05428000 *05428000* 


#05430000% 05430000 07397400 #073974004%07397500% 07397500 *07527000% 07528000 07595000 «07601000» 07610000 
#09434100% 09434200 #13285000" 43287000 %14438000% 44438000 *14483400*% 14483400 


*01384000* 


02904000 #06104300% 06104500 %06104500**06104510*% 06104510 *06104520% 06104600 *07527000*% 07527000 07528000 
07529000 07596000 %07604000*" 07603000 07630000 #43235000*% 13238000 144203000 


#14203000* 


*01384000+ 
#07028000* 07029000 07596000 #076040504 07604080 07604090 #07607000*% 07609000 14203000 


0005 


0003 


0035 


HEXIZE 
0003 


HEXOP 
0003 


HF 
0094 


HOLE 
0055 


HTTEQAP 


0003 


*44203000* 


*01822000* 
*01828000* 


*05335000* 
05316000 


*05068000* 
05071100 


*02001858* 
02004897 


#01268000* 
01299200 


#14017000« 


01833000 


05074200 


02001898 


06071000 


01835000 


05085000 


06089000 


449123000 #14382000+ 14508000 


¥07393000* 
407 396000% 


*13731000* 
13747000 


07398000 


14489060 


07440000 


14600000 


07442000 


0003 


0003 


0030 


0043 


0044 


0043 


0041 


#04319000* 


#029147000% 
#05107200% 
05280000 
05344740 
06104300 
07066000 
07521000 
07600500 
07727060 
07768130 
08110000 
#094140 30» 
*09424000% 
09436000 


02947000 
05407200 
05284000 
05344770 
06108000 
07070000 
07554000 
07600950 
07745000 
07768470 
08114000 
09414040 
09424000 
09447020 


04237000 «05002000. 


05489000 


05344570 605344600" 


05216000 


405344770" 05350420 


06466000 
07070500 


07556000 707556000 
07604020 2076041308 


07748000 


06485000 
07071000 


05002000 
05247000 
05344600 
05350160 
06324000 
07396000 
07566000 
07604130 


05003000 #£05003000#%05107000w 05107000 #05107400»% 05107100 


05218000 
05344615 
05350180 
06325000 
07397210 
07572000 
#07604150% 


07749000 *077490004#07750000« 


#97768170%407768180% 07768180 


4081200008 08120000 «08174000+ 


09444100 70941 4400%409415000% 
09426000 209427000 094274300 


09447030 


13324000 #13324000«% 13361000 
14063000 «44067000% 144067000 
14264000 #£44264000% 143134000 
14408000 #44408000« 44546000 


14062000 
#14255000" 
14360000 
16121000 
16321000 


*#16449000%4 16450000 


¥03400000* 
05402000 


*04237000* 
04239000 


*05415000* 
05415000 


#05438000« 
*05444000* 


*05414000* 
05424000 


*05334100* 


14255000 
14399000 
16124000 
16329000 


05402200 


04241000 «04342000 


054190900 


05445000 


05425000 


16459000 
16342000 
16450000 


05402300 


05437000 


05447000 


09447040 
13372000 


16200000 
16344000 
16482300 


05404000 


04243000 


06060000 


05455000 


10258200 
13394000 
14429000 


16204000 
16379000 
*16489000"8 


05409200 


*05456000*% 


05425100 2054254008 05425400 


07994000 
08476000 
09415000 
09427500 
12015000 
13753400 
14137200 
14332000 
44919000 
16208000 
16376000 
16489000 


035409500 


05456000 


05221000 05222000 05224000 *05225000% 059225000 
05344620 05344660 4053446708 05344670 05344700 
05414000 05438000 06036000 06044000 06072000 
06326000 #07008000% 07008000 07034000 «070314000% 
07401000 07430000 07546000 075146300 07548000 
073583000 07599000 #07600200% 07600200 «07600500* 
07604150 07667000 07727040 #077270404%07727060e 
07750000 07751000 *07751000* 07768100 +07768430*% 
07995000 08029000 08034000 08037000 %08140000« 
8082230008 08999050 08999500 «#09391000% 09393270 
09418000 09449000 #094;9000% 09419000 «09420020« 
#09427500*#094320004 09433000 09434000 «09436000 
12020000 12024000 12036000 12044000 43200000 
13757000 «13757000 13761100 13767000 143768000 
#14137200% 144169000 «141890008 44220000 44221000 
*149332000* 14349000 14352000 14353000 414360000" 
19977000 145276040 #45276040# 145276040 416000700 
19211000 462432500 «162520004 46252000 16254000 
16379000 46408000 146412000 46435000 46449000 
16495300 

05458000 05459000 

05426000 ¥05430000% 05430500 05431000 


0067 


0068 


0079 


0082 


0092 


ID 
0015 


ID 
0035 


ao) 
0040 


IDBIT: 
0054 


IDBLOR 


05334400 


*¥08999050* 
«08999475 


*08999500* 
*089995a5* 


#09393270* 
#09393300" 


*40256200* 
19277000 


#13673100¥ 
13673300 


*02310000* 
#02312000# 


*05067000* 
05067000 


#0532504Q0* 
03325320 


*07039000* 
*#07047000* 


05334600 


08999225 


08999550 


09393310 


10282000 


13673400 


02313000 


05070000 


07050000 


08999350 


08999650 


05246000 


07068000 


05247000 


07082000 


05325010 


0007 


IDENT 
0021 


IDMAX 
0003 


IDV 
0003 


#02091500*% 
02093000 02103000 02410500 


#02639000* 
02643000 *02865000* 


*01479000* 
05344520 06106300 07664000 43337000 


#01651000* 


IFCLAUSE 


0003 


IFEXP 
0003 


IFS 
0103 


IF 3B 
0109 


IFSC 
0109 


IF STMT 
0003 


*03018000* 
06296000 *06409000* 07563000 


*03013000* 
06005000 #£062940004w06299000% 06311000 


*16191000* 
46239000 16486000 


*16193000* 
16194000 *16216000« 


*#16193000* 
16194000 *16207000* 


*03022000* 
*07561000* 07587000 07761000 


13754000 


16233000 


46253000 


16482100 


IF SW 
0109 


IF TOG 
0109 


IFV 
0003 


IMPFUN 
0003 


INCR 
0003 


INCRE 
0003 


INDEC 
0094 


INDEX 
0003 


INDEX 
9003 


INDEX 


*¥16194000*% 
16197000 


*16193000* 
16194000 16215000 «162470008 


#01231000* 
06004000 


*03039000* 
06158000 *06183000* 


#01153000* 


02638000 05324000 054389000 05222000 06080000 
15295100 


*01607000* 
¥13206000* 43769000 14314000 


*14014000* 
44019000 14158000 


*05008000* 
05006000 


#03053000* 


063489000 


13206000 


13240000 


13307000 #14116000~ 15285000 


0003 *05008000*¥ 
05009000 
INDEX 
0003 w07036000* 
07042000 07098000 
INDEX 
0062 *07595000* 
07601000 07610000 
INDEX 
Olii #16314000* 
#16320000 w¥46328000 «4 {6334000% 16346000 
INDEXS 
0103 #16311000* 
16355000 16490000 
INFO 
0003 *01007000* 
02212250 02214250 02226000 02228000 
02485000 02602800 02877010 02878000 
04211000 04221000 04223000 05006000 
03350200 05426000 05431000 05449000 
09253500 09254000 09255000 09384400 
13319000 13593000 143677300 414440000 
INFOQ 


0003 «02005000 


INFO 


0016 #*02320200* 


INFO 


0077 ¥09392500# 


02006000 


02320600 


09406000 


09427500 09447060 


16349000 


02234750 
02879000 
05009000 
05450000 
09386000 


02265600 
02884000 
05039500 
07086400 
09392500 


02265700 
02923000 
05045000 
08035000 
10251000 


02265850 
04172000 
05088000 
09034200 
19254000 


02265950 
04187000 
05233000 
09034500 
10264800 


02368000 
04209000 
05325470 
09085000 
12117000 


02440000 
04210000 
05350160 
09121650 
13281000 


INFO 
0083 *10236000* 


10238000 


INLINE 
0003 #03010000* 


07746000 *13748000* 13774000 


INGINETOG 
0003 *01695500* 


13307500 #13752000w#13770500% 


INT 
0065 *08012000* 


*08060000* 08070000 


INTARRAYIO 
0003 *01205000* 


04522000 08057000 15233009 415333000 


INTBIT 
0003 «01000960 


04001250 40257700048 02577000 409253050" 09253050 


INTEGERDEC 
0094 #14043000* 


14018000 #14141000* 


INTID 
0003 *01201000* 


04509000 08038000 08061000 142035000 42042000 


INTNAMEIO 
0003 *01205400* 


INTOG 
0003 *01001250* 


02577000 09253050 09253390 09394100 0941,40;10 


09253400 


14141000 


09430050 


09394400 


15986000 


13654100 


09414040 


151902000 


09430050 


13651100 


INTPROCIO 
0003 #01197000* 


13278000 


INTRINSICAOR 
0003 *01299500* 


09253100 


INTRNSICPROCID 
0003 #01188000*% 


INTSTRPROCID 
0003 #01493000* 


14284000 


INTY 
0003 «012850008 


INV 
0003 012900008 


INX 
0003 *01652000* 


04531000 


TOCLASS 
0003 *01233000* 


IOSTMT 
0003 #03012000* 


14294000 45078000 


07094000 45303000 145344100 


07765000 #07993000« 


IPART 


15351200 


002% *02639000* 
02643000 *02758000« 


Is 
0033 *04501000* 


04527000 04540000 *04548000% 


ISD 
0003 #01653000* 


15103000 152761,00 45334000 


ISKIP 
0083 #10236000* 


10237000 10238000 


ISN 
0003 *01654000* 


43103000 145276100 15334000 


ISOLATE 
0003 #01270000% 


06092000 


0102 *45076000% 
*15233018* 15233026 


0003 «01618000 


04166000 05403000 05414000 05438000 07393100 08999050 08999500 09393040 12102000 13210000 45210000 


13221000 #13324900* 13333500 #13333500#%13342000% 13342000 13351000 13381000 #13391000%813408500481374 8000" 
13748000 43724000 413724000» 43727000 413727000u 13750000 444069000" 34429000 #44129000# 14132000 44134000 
14435000 141350008 34136000 4141360008 14437600 444137600 44141610008 14161000 0141640008 14161000 14161020 

#49161020% 14164000 6144640004 14254300 »14278000w 44278000 #14281000" 44281000 *14296000% 14296000 214421000 
$4425000 14438000 14440000 14446000 44448000 4444490008 44449000 45075000 16344000 46364000 


0003 *10228000* 
19263110 10264600 10264900 


0028 *04166000* 
04470000 04172000 04187000 


0042 #05401000* 
05405000 *05405000* 05406000 05407000 


0044 *05438000* 
#05444000* 05446000 05448000 05452000 405453000% 05453000 


0043 *05414000« 
05428000 4054280008 05428000 05429000 05430000 


0055 #07393100+« 
07397300 07397400 


0067 #08999050« 
¥08999125" 08999925 08999275 408999275«% 08999350 


0068 *08999500* 
#08999625* 089999650 08999700 408999750" 08999750 


0079 *#09393270* 
809393290" 09393350 4093933604 09393360 09393400 09393420 4093934208 09393430 ¥09393450*% 09393450 


0077 *«09393010* 


09393270 09414022 09444024 09414026 ¥9094 44026 4409414030% 09444060 2094440604 09414070 09414110 4#09420020* 
09425000 09425000 #%094280008 09428000 09447050 09447060 09447080 


0082 *10257100* 


0087 


0085 


0093 


0098 


0098 


0102 


0111 


0112 


JAZZ 
0102 


JEDEN 


10257100 


#13221000* 


10257500 


10257700 


#13232000* 13239000 #132570004#13258000" 13258000 143264000 


#12102000* 


42116000 #121316000" 42417000 12126000 


#13750000* 
#137650008 


142548100" 
*#14259010« 


#14254200* 
44254200 


*#13075000* 
#15234000+% 


#16314000* 
¥16348000+ 


*#16364000* 
#16387000« 


*15076000*" 
*15233012* 


13765000 


142590135 


14254500 


15255000 


16349000 


16389000 


15233026 


#142590154414259080% 14259080 44259450 


15266000 *#15280000«% 15280000 145290000 
#16349000% 
#163920004 16392000 416392000% 146393000 


13265000 


14266000 


19296000 


13270000 


13302000 


13271000 


15344000 


15350000 


0042 *02264100* 
02265000 02265;00 02265350 02265450 02265600 02265700 02265850 02265950 


JFC 
0103 *16016000* 


16219000 


JFW 
0103 *16007000# 


16079000 16232000 


JNS 
0103 *16023000* 
16453000 
JOINFO 


0003 *#01482000* 
16127000 #16128000% 16134000 16138000 16139000 %16443000% 16440000 46442000» 16445000 16447000 16449000 


JOINT 
0107 #16118000# 


#16127000*% 16143000 


ARV 
0103 *16009000¥ 


16079000 


JUMPCHAIN 
0103 ¥16085000* 


16097000 16139000 16173000 


JUMPCHKNX 
0003 *03058000* 


*13616000* 14165000 14387000 


JUMPCHKX 
0003 *03059000* 


#133596000* 14506000 


JUMPCTR 
0003 


#01459000* 


14497000 #14499000*« 


JUMPLEVEL 


0003 


JUMPS 
0103 


JUMPY 
9003 


JUNK 


0003 


9003 


0042 


0043 


#01485000* 
16260000 


#16431000* 
16435000 


¥01242000+* 


*#01430000* 


*01693000* 


02091500 
16364000 


*02091500* 
02099000 


*05401000*8 
*05405000*" 


*05414000* 
#05428000*% 


16265000 «16269000 w%16433000 4416435000" 46452000 


16493000 


05401000 054144000 05438000 


05406000 


05429000 


08016000 


08999050 


09393010 


19258100 


$2102000 #14065000% 14254100 


0044 *05438000* 


#05444000* 05452000 05454000 #05454000* 05455000 *05457000% 05457000 


0067 #08999050« 
¥08999200*% 08999075 «08999275e 08999275 08999350 


0065 *08016000* 
08033000 08034000 08035000 08094000 08480000 08223000 08232000 


0077 4#09393010* 
*09447030*% 09447060 


0085 *12103000* 
42103000 12104000 


O0a2 «10258100% 
410263200 10263800 10264200 #10264200%410264400% 10264400 


0085 121020008 
#12109000" 12117000 12118000 12121000 


0098 *14254200* 
14254200 14254400 


0098 #14254100% 
#14259010* 14259080 14259090 


Vil2 *16364000*% 
16389000 


KEY 


0003 *04231000* 


04239000 04241000 


KLASSF 


L 


L 


0003 #01603000* 


05350400 
13677300 #16000300+« 


#02973500* 


#02974500* 02978500 


#01428000*% 


04477000 
04086000 
#04145000+ 
04207500 


04740000 
04102000 
04147000 


014758000 


04105000 404405000 
04149000 %04451000 
04240000 404346000% 04246000 


02094500 


04298000 404298000 04043000008 05038000 


#06148000% 06206000 
06308000 07025020 
#07443000*% 07444000 
*07493000* 07493900 
#97383000«% 07885000 
#97604060% 07604067 
07727070 08046000 
08097000 08406000 
#08450000# 08450000 
08190000 084941000 
09395000 09396000 
*1£3264000# 13267000 


13752000 *13768Q00* 13765000 #13765000"%140390008 
14461300 #44461300w414483700« 


14388400 14454200 
15376400 145376500 
#16094000%416096000% 

16475000 


0003 *01758000* 


01762000 047640900 


0003 #02183500* 


02183750 02186000 


07079000 


07081000 


02427500 
041305000 


05350900 «13201000 13220000 443226000" 43246000 


024182750 


43278000 43333500#13342000% 13372000 «13677200» 


02195000 


#04409000% 04109000 


04454000 04472000» 04472000 


04218000 
05049000 


07088000 


04223000 


06054300 406054;,00+ 
06207000 206207000 we062970008 06297000 £063000008 
07411000 #074110004407433000" 


w07444000% 07459000 2074590004 07483500 


*07495000* 07496900 
#07585000« 07585100 
07604085 407604085e 07604090 407604100e 
08047000 «08047000» 08050000 #08050000« 


#08406000% 06122000 


08452000 
082145000 
09397000 


04232000 


07485000 


07540000 *07540000* 07545000 


07586000 


07597000 407600300 ww07600K40% 


08124000 08127000 
08460000 #08468000« 


08168000 


08221000 «#08224000« 08227000 


09416000 #13232000" 


132 32000 


w132700008 13273000 wi3277000% 143360000 


14039000 


07607400 
08077000 
08146000 
08169000 
06228000 
13235000 
43606000 
14041000 


15376600 #16032000% 46032000 «46034000% 16070000 


14461100 144463200 
16121000 46138000 
03047000 03047300 


16167000 


16172000 


16248000 


02195750 


02234200 


02228750 


02421000 


04119000 #04420000%%04;240004 041445000 
04182000 +«041850004%«04186000% 


04175000 
04279000 
06404400 
06300000 


04282500 
06404500 
06301000 


04293000 
06104510 


04296000 
06148000 


06307000 *06308000* 
07433000 #07440000* 07440000 


07487000 *07487000% 07494500 
07377000 *07577000* 07579000 


07608000 


*08078000~ 
#08146000"8 


08179000 


#08231000« 


13612000 


07600800 
07640000 


07604010 
07727020 «07797050« 


07493000 


07583000 


07604040 


08078000 «08089000» 08093000 
08147000 #08148000« 08148000 


06171000 
09282600 


14054000 #14055000* 14167000 


14487000 
16088000 
46232000 


14505000 


14602000 


#16089000%8 16090000 


16257000 


16313000 


08179000 «08190000 
09388000 #09395000* 
#132 38000 «41 32390004 13258000 #3 3263000* 
13628000 #13628000« 


13746000 
14168000 
14603000 
19092000 
16364000 


0003 


0007 


0003 


0007 


0003 


0003 


0003 


0003 


0003 


wOL7421008 
01742110 


#02127500« 
*02128000# 


*01719000e 


#02091500* 
02101000 


*05333000* 


05376100 


*03051004% 


#03020000* 


*03039500* 


#03307000* 
03312000 


02135500 


0003 


0003 


0003 


0003 


0003 


0030 


0035 


0035 


0035 


0046 


#054 28000* 
05131000 


#05411100* 


*05123000* 
05124000 


#03437000* 
05440000 


208999450" 
08999525 


#04232000* 


05132000 


05441000 05442000 05444000 05458000 


04261000 *04243000» 


#05050000* 
05051000 


#050590008 
03060000 


«050490008 
#05092000* 


*06064000* 
06065000 


05052000 


05094000 05098000 


0043 *05415000* 
05418000 


0089 #13360000* 
*13364000* 13366000 


0103 *164750004% 
16476000 *16483000» 


0312 216364000" 
16391000 16393000 


OL11 #16313000% 
16319000 16327000 46340000 #46347000+ 


LABEL BAT 
0003 #03025000+ 


LABELBAT 
Q003 #07537000* 


07339000 


LABELDEC 
0094 #14014000*" 


14019000 «14487000» 


LABELID 
0003 *03206000* 


01479000 05344520 05350120 05350460 06304100 
07645000 07664000 43246000 43337000 43734000 
16482100 


06106300 
14194000 


06107100 07047000 


14220000 


15128100 


07075000 
15376900 


073506000 
16243000 


07353000 
19253000 


LABELR 
0003 *07593000* 


07646000 07741000 


LABELS 
0103 #16156000" 


16177000 16485000 


LABELV 
0003 +*01286000* 


14399000 


LABLMONFILE 
0003 #01535000* 


LAMPER 
QO47? *06137000* 


06464000 061466000 064368000 «06479000» 


LASS 
0102 #15076000* 


#15276060* 15276460 


LAST 
0102 #15076000* 


#15302000* 15342000 


LASTCRDPATCH 
0003 +01001500* 


LASTENTRY 
0003 #01376000* 


04170000 4044890008 04208000 04210000 04241000 *042344000% 04214000 44038000 


LASTGT 
Q103 #16003000* 


16089000 16266000 


LASTGT 
O10 *14420000% 


14438000 


LASTINFEO 
0003 ~01619000* 


02724000 
#13290000% 
*14330000% 


LASTINFOT 
0094 wis029000* 


*14330000* 


LASTRESULT 
0082 *10258000* 


#10262000* 


LASTSEQRONW 
0003 #01570000* 


02214250 
09033000 


LASTSEQUENCE 
0003 #01569000* 


02214250 
09033000 


LASTUSED 
V003 *01391000* 


02194500 4022040004%02209250% 
#924 36000 #¥0 2458000 4202722000 


LBC 
0003 *01645000* 


LBP 
0094 *14023000*8 


02725000 
133099000 
14330000 


14373000 


10272000 


02226000 
09034200 


02226000 
09034900 


02726000 4027260008 05350200 #£09033000«% 40264000 


#13341000" 43347000 
#14373000 14421000 4144630008 16000700 


14463000 


192760008 


02228000 
09034500 


02228000 
09034500 


02234750 
09253500 


02234750 
09253500 


02242000 
02900000 


13348000 


02368000 
09254000 


02368000 
09254000 


13408000 


02440000 
09255000 


02410000 
09255000 


13755500 


16445000 #16447000% 


02465000 
09484 100 


02485000 
09384400 


02212250 «022127508 02242750 
#0290 1000 ##070 30000 % #090 29000 #%#09037000% 09282000 


19263100 
14079000 


02602800 
09386000 


02602800 
09386000 


02228050 


19263110 
14063000 


05039500 


05039500 


19264800 
1492594150 


050465000 


05045000 


13222000 
14320000 


07086400 


07086400 


02234000 #02332000w«#02430000« 


LBU 
0003 


LCARD 
0008 


LCR 
0003 


LCR 
0003 


LCR 
0003 


LCR 
0016 


LOES 
0003 


LOOT 
0047 


*01646000* 


¥02191000* 


02194250 *02194750% 


#01330000* 


02429500 
02226000 
02716000 


#02005000* 
02005000 


*01756000* 
01756000 


*02320200* 
02320200 


#01299030% 
05248000 


#06137000* 
06144000 


LEFTPAREN 


0003 


*#012120008 
02975000 


02193250 
02228450 
02717000 


02006000 


01767000 


02320600 


05250000 


061456000 


06069000 


#9220 2000 %%022040004402209000» 02233000 


02232000 


*02719000* 02902000 *02903000*% 02904000 


01774000 


02321000 


09415500 


06158000 


06415000 


02233500 


13252500 


06460000 


07409000 


02234750 


06462000 


07437000 


02235750 


06470000 


07768410 


¥02244000" 02214250 


02368000 


02905000 #07025010#*07025030* 


06172500 #£06178000+% 


19264400 


02369000 


12007000 


02244500 #02245750% 02225250 


02440000 


42114000 


02485000 


13753000 


02602800 


14137000 


14259020 14326000 16003000 16125000 


LENGTH! 
0016 #02360000* 


02364000 *02374000% 


LENGTH2 
0016 #02360000* 


¥02380000* 


LENGTH3 
0016 #02360000* 


02364000 02381000 


LENGTHS 
0016 *02360000* 


02364000 *02399000% 


LENGTHS 
0016 *02361000* 


02364000 *02476000*% 


LENGTH6 
0016 #02361000* 


02365000 *02518000* 


LENGTH7 
0016 *02361000* 


02365000 #02569000« 


LENGTHS 
0016 *02361000* 


02574000 
LENGTHS 
0016 #02361000* 
02365000 02575000 


LE@ 


16482400 


0003 *01655000* 


05344400 05350400 05350120 13339000 


14318500 #14323000% 14323000 443841300 44387000 


08050000 
LEVEL 
0003 *01402000* 
05208000 
44478000 
LEVEL 


0103 *16005000* 
16171000 
LEVELF 
0003 ~*01608000* 
*#13204000% 


LFC 
0003 *04648000* 


LF TBRKET 
0003 *01263000* 


05274000 


LF TPAREN 
0103 *16003000* 


16125000 

LFW 
0003 *016490008 
14167000 


LGTFLO 
0103 *16004000* 


16172000 


L168 
0009 «*02202500* 


14497000 14499000 «14500000% 14500000 


16265000 


13339000 143371000 14307000 


06139000 06316000 06424000 10264100 


16482400 


133714000 
44389000 


13677400 
14441300 


14053000 «14053000 44220000 


14445300 


14603000 %14604000* 44604000 


12114000 


13391000 


14259020 


14451000 
16005000 


15233000 


44461100 


14307000 
14477000 


LIN 
0003 


LIN 
0040 


LINE 
0003 


LINE 
0003 


LINE 
0034 


LINE 
0035 


LINE 
0054 


LINE 
0076 


#01559010* 


02181000 
041450000 
05325470 
09387000 


¥05325040* 
05325090 


#01558000* 


04829000 
02265650 
05087000 
07025020 


*02183500* 
02184250 


#050160008 
03019000 


*03067000* 
05069000 


#07038100* 
07036200 


#09378000* 
09379000 


02181250 
05038000 
05325480 
09 388000 


05331000 


02484000 
02265750 
05088000 
07086500 


05021000 


05074200 


07038300 


09380000 


02382750 
05039500 
05325490 
09389500 


05333000 


02481250 
02265900 
05089000 
09384500 


05024000 


05076000 


07391000 


09393060 


02194000 
05039600 
06122000 
13653000 


02495000 
02266000 
05090000 
09387000 


03085000 


07536000 


09393250 


02495000 
05044000 
06423000 
13653500 


02195750 
02424000 
05097500 
09389500 


05246000 


07537000 


02195750 
05046000 
07025020 
13675000 


02244200 
02464000 
05099000 
09390000 


05247000 


07647000 


02214200 02226750 02228750 02421000 04449000 


05096000 
07086300 
13676000 


02228750 
04150000 
05325490 
13653500 


05097500 
07086500 


02264950 
04279000 
05427000 
13676000 


05099000 
09984400 


02265450 
04282500 
05432000 
14023100 


05325450 
09384500 


02269300 
05039600 
05434000 
14461500 


05325460 
0¥ 386000 


02265450 
03046000 
09123000 
14493500 


LINK 
0003 


LINK 
0028 


LINK 
0062 


LINK 
0106 


LINKE 
0003 


LINKF 
0003 


LINKP 
0089 


LINKR 
0003 


LINKR 


*01154000* 


02725000 


06190000 
14448000 


*04166000* 


*04182000* 


*07595000* 
07601000 


#i6087000« 
#16092000 


#01156000* 


01721000 
05409000 
09444070 
13677300 


#01606000* 
¥13207000* 


#13359000* 
#13361000« 


*01155000* 


034723000 
05409000 
09414070 
43303000 


04166000 
07593000 
14470000 


04185000 


07604040 


16094000 


02212250 
05426000 
09418000 
14483400 


13768000 


13362000 


02212250 
05426000 
09418000 
13310000 


05124000 


09433800 
15060000 


07604050 


02876000 


05428000 
09449000 


13769000 


13364000 


02875000 
05428000 
09419000 
13593000 


03132000 
09134000 
16067000 


07604060 


05006000 
05430000 
09433000 


14310000 


05006000 
05430000 
09433000 
13677300 


05189000 
13207000 
16443000 


076046070 


05009000 


05431000 
09447060 


14334000 


05009000 
05431000 
09447060 
14483400 


05233000 05234000 
413232000 43286000 
07604090 076050900 
05325470 05350480 
05449000 05450000 
10251000 10264800 
14315000 

05325470 053507160 
05449000 05450000 
10251000 {10254000 


05447000 
13308000 


07607000 


05350200 


07397400 
12117000 


05350200 
07397400 
10264800 


05448000 
13361000 


07607100 


05402400 


07397500 
13281000 


05402300 
07397500 
12117000 


06079000 
13362000 


07608000 


05405000 


09393410 
13310000 


05405000 
09393090 
13281000 


06489000 
13364000 


07609000 


03407000 


09393330 
13593000 


0240/000 
0¥393280 
13302000 


0079 *09393280* 
09393350 


LINKR 
0078 +09393090" 


09393130 


LINKT 
0089 «13359000* 


#43361000% 


LINKTOG 
0003 *01399000* 


89393400 


09393470 


13362000 


09393430 


09393190 


13364000 43365000 «13366000¢ 


04100000 #04213000%4042220004404295000% 06021000 #06022000« 


LISTABIT 
0003 *01000970*% 


01001260 


LISTATOG 
0003 *01001260+ 


02194250 


LISTBIT 
0003 *01000980* 


01001270 


LISTER 
0003 *01001570« 


02195000 
14461500 


LISTIo 
0003 *01181000* 


LISTOG 
0003 *03001270* 


02602500 


02194250 


02602500 


02402000 


02195750 
14493500 


09028000 


02511000 02602500 


02602500 *09028000* 


02214200 02464000 #02602500* 05036000 o7025020 


07086100 *09028000* 143682000 


13674000 


LISTPBIT 


0003 


*01000990* 
03001280 


LISTPTOG 


0003 


LITERAL 


0003 


LITNO 
0003 


LITV 
0003 


LN 
0093 


LNO 
0003 


LNG 
0003 


LO 
0094 


¥01001280* 
02195000 


*04003000" 
04004000 


#01210000* 


02850000 
07666500 
16410000 


#01250000* 
16372000 


*13750000* 
*137555008 


*01656000* 
04545000 


#01657000# 
04112000 


#14029000* 
*24304000* 


02195000 02228750 02480000 


02228750 


05275000 05977000 05344640 06085000 
07727050 07994000 43392000 45276040 
16435000 16482300 


16381000 


13773000 


14496000 


06094000 06347000 


16419000 


16204000 


06349000 
16212500 


06324000 
16326000 


07600300 
1634 1000 


07665000 
19374000 


Lac 
0101 


LOG 
0103 


LOCAL 
0003 


LOCALV 
0003 


*¥14420000* 
14438000 


#16003000* 
16070000 16163000 16255000 


*05206000* 
05210000 *05210000% 075136000 07554000 


*01249000* 
14396000 


LOCBEGIN 


0094 


LOCFLO 
0403 


LOCL ID 
0003 


LOCcy 
0003 


LoD 
0003 


LOD 


*#14022000* 


#16008000* 
16138000 


*01179000* 


13755000 44409000 44411200 414445200 
16368000 16406000 16482100 16482300 


#01247000" 
16336000 16339000 


*016380008 


04523000 05201000 05227000 05346000 
43344100 15351300 


07599000 


14425000 
16482500 


06172500 


16198000 


07071000 


16347000 


07090000 


16326000 


08079000 


16330000 


15233010 


16335000 


15267000 


16340000 


19306000 


0094 


LONGID 
0102 


LOR 
0003 


LOWER 
0003 


LPRT 
0003 


La@v 
0003 


L$ 
0093 


L&@ 
0076 


LSS 
0003 


LSTRTN 
0003 


*14030000* 
#140540008 


#45076100* 
15303000 


401659000" 


#05299000" 
03304000 


#01483000* 


*#016600008 


¥13750000« 
#13752000+% 


#09364000* 
09366000 


#01661000" 


#01430000* 


15344900 


13765000 


15351000 


LSTSEQ 
0034 


LTAPE 
0008 


LVL 
0003 


eS 
0035 


Ld 
0044 


Li 
0047 


Ld 
0063 


Ld 
0064 


4 
0069 


Li 


#05016000* 
035020000 05023000 


*02191000* 
02191250 *02195500« 


#02151000* 
05116000 05208000 07432000 43204000 44220000 


#050490008 
#05096000* 05099100 


*05334000* 


¥061428000* 
06133000 *06152000* 


907658000 
07667500 07672500 07673000 #07675000% 


#077430008 
07720000 *07729000+* 


#09025000* 


46005000 


16471000 


16265000 


0084 *12005000" 
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13723000 


02337000 


01001230 


Q1001340 
01001460 


02235250 *02330000% 


02425500 
05039600 
09028000 
09430050 


02235000 


14164040 


02331000 


04001240 
01001350 
02191500 


02427000 
05046000 
09253050 
09447040 


02334000 02338000 02352000 
01001250 01001260 010043270 
01001360 01003370 01001380 
021493750 02194250 02195000 
02335000 #02335000%+02339000+ 
02428000 02436000 02533000 
05048000 05097500 05099000 
09253100 09282500 09384500 
13654300 43652000 43653500 


02356000 


010014280 
01001390 
02195750 
02339000 
02577000 
05322490 
09387000 
13674000 


02426000 


01001290 
01001400 
02214200 
02353000 
02602500 
05350100 
09389500 
13676000 


09251208 


04001300 
01001420 
02228100 


#02393000« 


04148000 
05376400 
09394100 
13677100 


09444024 


01001310 
01001430 
02228750 
02357000 
04450000 
061423000 
09405000 
14461500 


0003 


0003 


0035 


0035 


0043 


0085 


0093 


PACK 
0003 


PACKIN 
0082 


*01489000* 
05414100 


*02635000* 
02644000 


*05050000* 
05050000 


#03059000* 
05059000 


*#05414100* 
05425300 


#12102000« 
#12408000+ 


*13750000* 
#13752000% 


*04270000* 
04276000 


#10258300+ 
19264000 


PACKINFO 


0083 


#10236000* 
10240000 


12102000 


029417000 


05052000 


05061000 


05425400 


12126000 


13755000 


04296000 


10264200 


10231000 


13750000 #*14335000" 14387000 


#02917000* 02920000 


05055000 


02923000 


14430000 


02924000 


14451200 


13761000 #13761000# 13761200 4#13761200*% 13767000 


19264400 


10254000 


10264420 «10264910 


14463000 


PAN 
0076 *09364000*% 


09386000 


PANA 
0003 *03021000* 


06186000 *06413000*% 06447000 


PARM 
0098 *14254200* 


44254700 14259080 


PARSE 
0003 #03014000* 


06035000 061481000 #063;30004% 06335000 


PASSFORMAT 
0003 «#052,4000«% 


05227000 


PCTR 
0054 *07038000* 


#07040000% 07042000 *07094000*" 07094000 


PODES 
9003 #01299020* 
13746000 

PEN 


0076 209370000 
09377000 09388000 
PERCENT 
0021 *02637000* 
02641000 *02731000% 02906000 


PERTOD 


07098000 


0003 «*01264000* 


06105000 06406100 06340000 07024000 


PERMANENT 


0003 


PINFOO 
0094 


*05333000* 
03345000 


¥14026000*« 
¥14375000* 14471000 14483000 14489000 


07026000 


15111000 


15233003 


15276440 


15339000 


14147000 #14420000% 14120000 644323000» 14333300 


14415300 


43240000 #43240000«% 13249000 


07743000 


PY 
0003 *01617000* 
13344000 #43344000% 14073000 44085000 
14349000 44364000 414374000 *44387000" 144113300 
PLUG 
0065 *08020000* 
08116000 08488000 08233000 08238000 
PN 
0093 w13750600% 
#13751100%6137614108% 43770000 #13770600* 13773000 
POINTER 
0087 *13219000* 
#132220004 43223000 43226000 43229000 
13264000 343284000 43286000 #413287000*% 13287000 
POL 
0054 *07037000* 
*07052000* 07059000 
POLISHER 
0003 #03009000* 
*06060000* 06170000 07052000 075132000 
POLISHV 
0003 *01212100* 


43290000 


13255000 


13257000 


14334000 


13263000 


14335000 


13279000 


07052000 


PORS 
0003 *05325010* 


03325460 


PORS 
0040 #05325040* 


05325050 


POSITION 
0003 #04270000* 


04274000 


PRIMARY 
0003 #03005000* 


06046000 


PRINT 
0092 «#13661000* 


13673000 


PRINT 
0091 *13633000*# 


13643000 


PRINTCARO 
0003 *02182500* 


02195000 


PRINTDOLLARBIT 
0003 *01001060* 


01001350 


PRINTOOLLARTOG 
0003 *01001350* 


02228750 


07511000 


95325470 


05325090 


04273000 


06048000 


13675000 


13653000 


023495750 


02228750 


13338000 


05325480 


05334000 


04341000 


06023000 


02244200 


02377000 


05333000 


046500000 


06035000 


02228750 


04503000 04505000 


06049000 4064260004 061347000 06472000 


02424000 07025020 


05008000 


06181000 


06382000 


07076000 


PRL. 
0003 *01666000* 


PROAD 
0094 *14032000* 


#14343000%#44320000" 44464300 144476000 44489000 


PROQOADO 
Q003 #01613000+ 


14037000 #14476000# 44602000 


PROCEDUREDEC 
0094 #14015000* 


14020000 14137700 *14270000*% 


PRUCIO 
0003 *01187000* 


07399000 O7404000 13278000 14284000 14292000 


PROCSTMT 
0003 #03029000*% 


06462000 #07391000% 07425000 07735000 


PROCV 
0003 *«01293000* 


PROGDESCBLOR 
0003 *03047000* 


#05245000* 05255000 07677000 43252500 43746000 14461300 


PROGRAM 
0003 09003000" 


09448000 16498200 


PROINFO 
0003 #01608000* 


07090000 13677200 143677300 14304000 #14344000%#44320000" 44388100 14431200 14441300 14445200 14445300 


14457000 144461200 144470000 144483200 14483300 44483400 #14496000» 15080000 


PRT 
0003 *01343000* 


05248000 05252000 09414040 09445000 


PRTAD 
Q003 #13734000* 


13746000 


PRTADR 
0003 *05247000* 


#05247500*% 05247500 05248000 05252000 


PRTBASE 
0003 *01342000* 


01343000 04724000 04725000 05424000 09039000 09414030 09445000 09439400 


PRTBIT 
0003 *01001070* 


01001360 02395000 05376400 


PRTE 
0003 #*01667000* 


04048000 04023000 04033000 05346000 06440300 08068000 145106300 45340000 


PRTI 
9003 #01703000* 


#953490008 07600440 409039000% 14022000 14054000 


PRTIMAX 
0003 *01703000* 


05347000 ~205350000% 05350000 4090390008 09388000 09414100 09439000 
PRTIO 
0094 *14030000* 


#14054000* 


PRTOG 


0003 *01001360* 


05376100 


PRTOP 
0003 «01342000 


01343000 04724000 01725000 05424000 


PRTSIZ 
0076 *09370000* 


09371000 09372000 


PTOG 
0003 #01592000* 


13341100 143343000 13370000 44332000 «4414373000 %%14388000% 


PUNCHBIT 
0003 *01001080* 


01001370 02506000 05048000 


PUNCHTOG 
0003 *01001370# 


05048000 


PURGE 
0003 *03068000¥" 


#13215000" 413745000 43773000 144743000 14483000 44601000 


PURGEBIT 
0003 *01001090* 


01001380 025080900 


PURGETOG 
0003 #01001380* 


PURPT 
0003 #01628000* 


02726000 13285000 143309000 144088000 144118000 14446000 


PUSHEE 


0077 +09393240*" 


09393480 


PUSHER 


0077 *09393050* 


*09393140%*#09393200* 


Put 


0003 *05008000* 


05432000 
141416000 
14430000 


PUTNBUMP 
0003 *03057000* 


09034000 +43589000.% 


16445000 


PUTOGETHER 
0082 *10234000* 


19257000 


PUTSEQNO 
0003 *02005000* 


02006000 


Pi 
0003 «03057000» 


Pt 
0003 *15070000* 
49402000 
15276210 
P41 


0035 *05050000* 


09396000 


061404400 
14117000 
14454200 


16446000 


10263900 


02202060 


15 104000 
15305000 


09402100 


09393230 


07545000 
14168000 
14457000 


14167000 


10268000 


02214250 


19419 100 
15334000 


09406000 


09424000 


07640000 


14224000 
14470000 


14195000 


19269000 


02218000 


13114000 


09427500 


09433900 
14259150 
15376400 


14247000 


49270000 


02234750 


15119000 


09434400 
14335000 
161438000 


14221000 


10273000 


02368000 


15233008 


19335000 #15336000*% 45342000 


13304000 
14334000 
16166000 


14349000 


19274000 


02746000 


12233015 
35349000 


13348000 
14353000 
16167000 


14331000 


02904000 


13276400 
45364000 


13365000 
14388100 
16172000 


14403000 


15276410 


15367000 45370000» 


13408000 
144141200 
16257000 


16000600 


152761460 


13768000 
14415200 
16260000 


10443000 


12276490 


Pe 
0003 


0035 


05096000 


*#01588000* 


05059000 433441000 43343000 


*05059000* 
05096000 


¥03589000* 


413725000 #137 26000 ©9144 33000 mH 14138000 wa 14139000 we 1 4140000 weg 4141000" 


13347000 *13385000" 43722000 #13723000 4141393000414 161070481 43948000 4% 143210008 


*01316000* 

01822000 02280000 023433000 02344000 402327000» 02343000 «023743000* 02375000 02376000 02378000 02382000 
02384000 032386000 02389000 02392000 02394000 02396000 02400000 02406000 02420000 02422000 «024240004 
02433000 02462000 02467000 02469000 02474000 02473000 02477000 02479000 02481000 02495000 02497000 
*024699000*% 02503000 02507000 02509000 02543000 02539000 02521000 02523000 02529000 02566000 02576000 
02588000 402590000 w40 2650000 «40 2686500 40 2696000 #40 26980004 02700000 %02754000 4402822000 4402846000 #40 28650008 
02879000 402958500" 02960500 02964000 02964000 02964500 02965000 02965500 04341020 05043000 05044000 
05343000 05414400 07086200 07086300 08045000 09393010 #13282000%414441000% 146233000 46378500 

#00523000* 

00323000 00524000 00526000 04716000 04747000 01717700 01747900 01718000 03749000 

#01822000* 


01833000 #018330004201834000» 


*04231000* 


04239000 04241000 04243000 


#04311020* 
©04311050 4804311070" 043453070 


04311090 


0041 


0065 


0077 


0082 


RCA 
0103 


ROV 
0003 


*¥05414100* 
*95425100* 05425400 +05425200* 05425200 05425300 


¥05343000* 
*#05344750%#05371000%205374000% 03376100 


#08015000* 
08093000 08094000 081485000 08200000 08240000 


*09393010* 
#99395700% 09405500 4994055008 09447020 


*10257100* 
49257100 10257700 


*02637000* 
02641000 *02690000+« 


*02163500* 
02183750 02185750 02202500 


#05297000* 
*03304000*% 


*16008000* 


*01668000* 


08218000 


READACARD 
0003 *02065000* 


02130500 #02196750« 


READTAPE 
0009 *02198500* 


02202250 


REAL ARRAYID 
0003 *01203000* 


07056000 


REALDEC 
0094 ~14013000* 


14018000 


REALID 
0003 *01199000* 


07060000 


REALPROCIO 
0003 *01195000* 


REALSTRPROCID 
0003 «01191000 


14294000 


REALSUBID 
0003 #01164000*% 


14164000 
REALY 


0003 *01283000* 
13389000 


RECOV 


02208500 


07057000 


14135000 


07069000 


14167000 


14161420 


02238000 


02219500 


13380000 


02731000 09035000 


13389000 


14136000 »14438000« 


08038000 


141464000 


12035000 44438000 


15276240 


0087 *13220000* 
13251000 13256000 *13281000* 


REQ 
0003 *02011000* 
02011000 

REED 


0003 *08999000* 
¥08999175*% 08999425 09399000 


REGO 
0065 *08010000* 


080145000 4080930004 08094000 w08111000% 98120000 0816000042081 70000% 08185000 08200000 «08210000«% 08218000 
08231000 


RELAD 
0003 *13734000* 


RELAD 
0094 w14029000* 


*14487000*% 14489000 


RELOP 
0003 «*01277000* 


05344500 14260000 46207000 


REMCOUNT 
0082 «*10230000* 


10245000 10247000 «40248000 4210249000% 10249000 +#40263000« 


REPEAT 
0003 #04011000* 


04013000 04044000 


RESIZE 
0003 *02056000* 


RESTORESEQNUM 
0016 #023202008 


02602800 


RESULT 
0003 *91386000* 


02128500 02129000 02278000 #£02327000 02366200 #02374000%%02499000% 02500000 02579000 02586000 *02590000« 


92591000 02598000 402602700 4#02647000% 02648000 #0 2663000 #0 2666000 #40 2667000 #0 2684000 # #0 2694000 «*0 2698000% 
#02700000# #02744 000402747000 H0274 9000 4027510008 W027 920008 H 027 540008202757 000m e027 88000 #H027 990008 x 02806000" 
#0 2809000 #4028 42000 44028 16000 #40 2820000 4402846000 %%0 2889000440 2890000 4402958500" 02959000 02959500 19265000 

19272000 10276000 


RESULT 
0007 ~02089500*# 


02092500 


RESULTSWITCH 
0021 *02643000*" 


02648000 


RESULTV 
0007 #02089500*% 


02090500 02094000 


RETURNSTORE 
0065 +*08010000* 


08087000 08090000 «08466000 4408168000 4%08190000% 08493000 #08207000% 08245000 


RIGHT 
0003 *03039500# 


07675500 *08999450% 08999800 14464300 44603000 


RINX 
0068 #13301000* 


#43302000* 13304000 13305000 


ROSE 
0021 *02639000+ 


*02875000* 02879000 02881000 


ROUND 
0062 #07594000* 


07600000 07600900 07604000 «07645000» 


ROW 
0041 *05344000* 


RP 
0047 *06137000* 


RRB1 
0003 #01522000* 


RRB2 
0003 *01525000* 


RR1 
0002 *00507000* 


#00529000 0053000048 01557000 #14329000* 14373000 


RR1oO 
0002 +#00507000* 


RRit 
0002 *00507000* 


*00529000* 00534000 00533000 00536000 
RR2 
0002 *00507000% 
¥00530000* 01557000 


RR3 


0002 «00507000 
*00531000**005320008 014558000 


RR4& 
0002 *00507000* 


*00532000* 01558000 


RRS 
0002 00507000" 


*00534000*%00535000»% 01560000 


RR6 
0002 *00507000* 


*00534000*#00535000% 041560000 


RR? 
0002 *00507000*% 


*00534000**00535000* 01560000 


RR8 
0002 *00507000* 


*#00537000*#00538000* 01561000 


RRY 
0002 *00507000* 


#00537000%*00538000% 01561000 07595000 %07599000% 07604000 


RSA 
0103 *16018000* 


RTBRKET 
0003 *01265000* 


05278000 06444000 06322000 06422000 140264300 42126000 43395000 143402000 44259120 15260000 45276010 
15294000 


RTN 
0003 *01669000* 


13740000 


RTPAREN 


0003 


RTPAREN 


0021 


0003 


0003 


0003 


0003 


0003 


0003 


#01266000* 


02639000 
13761100 


*02639000* 


02976500 06445000 061475000 
13763000 14259120 14336000 


02642000 *#02744000% 


¥01670000* 
07087000 


*02001858* 
02001868 


~02001838* 
02001842 


*03051004" 


*03067000* 


*04291000* 
04296000 


*04277500% 
04280000 


13264000 43268000 


04297000 


04280500 04283500 04282000 


06416000 
16132000 


04283500 


07067000 
16478000 


04284000 


07096000 


04285000 


19264300 


04285500 


12939000 


12126000 


13756000 


0012 


0012 


0033 


0039 


0042 


0047 


0043 


0044 


0046 


0065 


*02264400* 
02264500 


#02264700*% 
02264800 02307000 


*04502000* 
*#04548000* 04551000 


*05309000* 
05309000 05311000 05325010 


*05401000+% 
05407000 *05407000+* 


*06132000* 
06138000 


*#05416000* 
05418000 05420000 


¥05334100*% 
05334300 05334800 


*06063000* 
06074000 *06074000%406403000% 06103000 


*08027000* 
*08029000* 


0065 


0064 


0065 


0084 


0082 


0085 


0085 


0098 


0092 


¥08063000* 
*98065000* 


#07719000* 
07727000 


#08072000* 
08075000 


*12004000* 
*12006000* 


*10257100* 
10257200 


#¥12103000* 
12194000 


#12102000* 
*12110000* 


#14254200% 
14254300 


*#13673100* 
13673200 


08069000 


08079000 


12025000 %12025000% 42030000 #120300004442038000«% 42038000 


10257800 


13216000 


15070000 


13673350 


13247000 


16029000 


13315000 


46065000 


13346000 


16085000 


13590000 


13591000 


12055000 ~412055000« 


13632000 


0103 *16029000« 
16032000 


SAF 
0003 #01300200* 


13677400 *14299000e 


SAN 
0003 *01677100* 


SAV 
0003 *05247000*% 


05248000 


SAVECODE 
0003 *13632000* 


13651000 


SAVECODE 
0091 *13633000* 


13633000 


SAVEINFO 
0090 *13378000% 


#13394000* 


SAVE INX 
0017 #02324000* 


136511900 13653000 


13638000 143657000 


13396000 #13397000*#13401000* 13405000 *13405000* 13408000 


02331000 *02342000* 02352000 


SAVEL 
0003 #01623000* 


13606000 *13628000% 14055000 *14609000* 


SAVELO 
0094 #14030000* 


#14053000* 


14609000 


SAVERR 
0094 ¥14013000* 


140148000 *14136000+« 


SAVETIME 
0002 #00503000* 


SAVEV 
0003 *01281000* 


13726000 44292000 144298000 44299000 


SAVINFO 
0077 709392300" 


09395400 09396000 09402400 09444070 09444440 09448000 09439000 09449100 09424000 09433000 


SAVL 
0104 *16931000*" 


#16032000* 16034000 


SAVL 
0106 16087000 


*16088000* 16096000 


SAVNDX 
0077 ~09393000*% 


4993970004 09402100 409403000w 09403000 09443000 409414120 4409420000% 09426000 09436000 


SBIT 
0003 +07036000* 


07046000 


SBV 
0003 *#01244000* 


16197000 16415000 


SCAN 


0007 *02089500* 
02127000 


SCAN 
0082 #10257100* 


10264800 


SCANAGAIN 
0021 *02639000* 


«02646000 


SCANNER 
0003 02066000" 


02437000 
02698000 
02812000 


SCATTERELBAT 
0003 ¥03035000+ 


07395000 «13197000» 


scl 


0003 *01677050« 


SCLASS 


0054 *07038000* 


02128500 


02650000 


02279000 
02744000 
02816000 


02686500 


02327000 
02747000 
02820000 


13208000 


¥0704G0004#07046000% 07048000 


SCOUNT 


0016 *02365100* 


#02366200* 


SCRAM 


0003 #01301000* 


02602700 


*02865000 4209385000" 09386000 


$cs 


0003 401677150" 


02696000 


02374000 
02749000 
02889000 


13327000 


07056000 


02728000 


02499000 
02751000 
02890000 


13767000 


02737000 


02590000 
02752000 
02958500 


14206000 


02690000 


02647000 
02754000 


14305000 


07060000 «07079000% 07088000 


12410000 *12122000* 13308000 


13361000 


02663000 
02788000 


13362000 


02666000 
02793000 


13755000 


02684000 
02806000 


02694000 
02809000 


SCV 
0003 


SEARCH 
0003 


SEC 
0103 


SECOND 
0003 


SECOND 
0051 


SECOND 
0052 


SECRET 
0003 


SED 
0103 


SED 
0101 


SEGMENT 


*01246000* 
16206000 


*04231000* 
#04243000* 


#16022000« 
16342000 


*#05271000* 
*#052810008 


#06314000* 
*06325000* 


#06339000* 
06341000 


*#01628000* 
13331000 


#16017000% 


#14419000* 


16337000 


04244000 


05282000 


06328000 


06344000 


14333000 


04280000 


06332000 


14345000 


04280500 


04283500 


04284000 


9003 *03042000* 


07676500 *#13637000% 13681000 


SEGMENTSTART 
0003 #03041000* 


07661500 #13632000« 13635000 


SEGSBIT 
0003 *01001100* 


01001390 


SEGSTZEMAX 
0003 «01687000* 


*13678000* 


SEGSTOG 
0003 #01001390* 


13652000 


SEMICOLON 
0003 *01230000* 


05409000 
14519000 


SEQ 


0003 #01756000* 


SEQ 


9003 *04130000* 


04130000 


SEQ 


0054 «07038100* 


07038300 


SEQ 


0076 «09378000 


09382000 


02470000 13652000 
13678000 
13674000 
07042000 07032000 
16131000 
04132000 04442000 
07038600 
09393050 09393240 


14461200 


14298000 


£3674000 


19264410 


04203000 


14602000 


14367000 


13766000 


04231000 


14062000 


04247000 


14063000 


14165000 


14325000 


44338000 


14357000 


SEQBIT 
0003 #01001110* 


01001400 


SE@COMPARE 
0009 *02202500* 


02209750 


SE@ERRBIT 
0003 *01001120* 


01001420 


SE@GERRTOG 
0003 *01001420* 


SEQTOG 
0003 *01001400« 


02191500 


SEQUENCEERROR 
0003 #017421008 


01742110 


SEQXEQTOG 
0003 ¥01001560* 


*02525000* 


SES 
Q101 #14419000* 


SET 
0085 *12103000* 


12117000 


SETTING 


02191500 


02224500 


02520000 


02226750 


02525000 


02393000 


0003 


SGAVL 
0003 


SGNO 
0003 


SGNQOO 
0094 


SIGNA 
0065 


SIGNB 
0065 


SIGNC 
0065 


#01000802* 
*02327000*% 02338000 02352000 02356000 


#01369000*% 


#01370000* 


14054000 


#14030000* 
*14054000* 


*08012000* 


08014000 #08056000*% 08065000 08098000 
*08227000* 


«08012000 
08050000 08412000 «*08424000% 08426000 


#08012000% 
08014000 08044000 4084142000» 08485000 


SIMPARITH 


0003 


SIMPGO 
0003 


SIMPY 
0065 


*03003000* 
06006000 *06032000» 07085000 


¥03026000* 
#075480004807555000% 07557000 07564000 


*08052000* 
#08061000* 08061000 08476000 08211000 


02427000 


08408000 


08483000 


08497000 408202000 06219000 w08220000% 


07570000 


08224000 


08130000 08179000 08181000 


08496000 ~08203000« 08214000 


07581000 


08189000 


08212000 


08247000 


SIMPLE 
0065 *08027000* 


*08033000**08038000* 


SIMPLEB 
0065 *08014000+ 


08044000 


SIMPLEV 
0065 *0804;5000* 


08074000 


SINGLBIT 
0003 #01001130* 


010034430 
05097500 


SINGLTOG 
0003 #01001430* 


02181000 
05099000 


SIV 


0003 #01236000* 


16319000 


SIZE 


0003 *03042000* 


SIZE 


0003 #05247000* 


05248500 


SIZE 


0003 *07647000* 


07663000 


08112000 


08099000 


02195000 
05099000 


02495000 
05325490 


16320000 


05249000 


07675500 


08039000 


08220000 


08241000 


02495750 
05325490 


02495750 
06423000 


16328000 


05250000 


07676500 


08132000 


08224000 


02244200 
06123000 


02214200 
07025020 


16334000 


05252000 


07677000 


08181000 


08227000 


02228750 
07025020 


02228750 
07086500 


05254000 


08183000 


02424000 
07086500 


02424000 
09384500 


08185000 


02522000 
09384500 


04150000 
09387000 


04450000 
09387000 


04278500 
09389500 


04278500 
09389500 


05039600 
13653500 


05039600 
13653500 


05046000 
13676000 


03046000 
13676000 


03097500 


SIZE 


0003 *13657000* 


SI¢E 


0092 *13661000* 


SKAN 


0003 *02277000* 


13675000 


13661000 


02327000 


SKANAGAIN 


0016 #*02360000* 
~02370000« 


SKBIT 


0063 *07653500* 


02584000 


07653500 


SKIPCOUNT 


0083 *10241000* 


SKIPIT 


0024 *#029740008 


SKIPS 


0103 +¥16403000* 


SKIPy 


0003 *01241000* 


SKP 


*10247000* 


02974500 


16419000 


13677400 


13670000 


02371000 


02378000 
02595000 


07655000 


10253000 


02978500 


16492000 


13678000 


02499000 


02383000 
02599000 


08020000 


19254000 


02590000 


02385000 


08027000 


10256000 


02958500 


02389000 


08083000 


02465000 


08084000 


024668000 


02478000 


02503000 


02527000 


02577250 


0003 


SKF 
0003 


SKP 
0003 


SKSC 
0082 


SN 
0093 


SND 
0003 


SoP 
0003 


SORCE 
0003 


#02001838* 
02001838 


*02041000* 
02041000 


*02001858* 
02001858 


*#10259000* 
*#10263500* 


*13750000* 
*#13755500* 


*04671000* 
15104000 


*14003000* 
14036000 


*02045000* 
02048000 


SORTNEST 


0003 


SORTPRT 


0003 


*#05412000* 
14601000 


*01725000* 
05425100 


02001842 


02043000 


02001890 


10283000 


13767000 


15233015 


14506000 


05425400 


13768000 #13769000% 43769000 


15276110 


14600000 


05447000 


15335000 


03448000 


05452000 


05455000 


05459000 


SPACEITDOWN 
0094 w14023100* 


14461500 


SPCLMON 
0102 *15076200* 


#15349000* 


SPECIAL 
0003 #01003000+* 


02655000 


SPECTALCHAR 
0021 *02637000¥% 


02643000 *02651000* 


SPECTALSWITCH 
0021 *02641000* 


02659000 


SPECTOG 
0003 *01593000% 


#050 34000% 
14160000 


SPRT 
0003 *01698000* 


SRESULT 
0016 *02305100* 


*02366200* 


SSKIP 
0003 *02045000* 


02046000 


SSP 


14493500 
15351300 15351400 
02666000 02755000 
13305400 43328000 
14161070 44487000 
02602700 

02049000 


15354000 


02961500 


13385000 
14205000 


02963000 


43604000 
14275000 


07031000 09498000 


13621000 43749000 
44287000 414364000 4%14368000% 14377000 


14070000 #14122000*% 14142000 


14507000 


14149000 


0003 *01672000* 
05226000 

SS5 
0046 *06063500# 
¥06068500* 


STACKCT 
0003 #01566010+* 


06125000 


04527000 #06054 750% 06458000 4061580004406 1720004 06472000 «06474500» 06474500 *064795004 06379500 «06296500» 
#06299500 # #06 305000 # 406332500 #w0704 3 200 #407 100500 4407726990 #4144 25500 #4509 1000 #1 5098000 #415101500««15233014% 
19233041 #15233016%4152345 008815276445 4w15278 0004153955 000K1 5369000" 


STACKCTR 
0003 #01683000* 


05370000 405374000% 05374000 


#14610000* 


STACKCTRO 
0094 *14029000* 


#14058000%414477000"8 414493000 


STACKHEAD 
0003 *01310000+ 
02724000 
13308000 
START 
0066 *08084000« 
08086000 
START 
0094 #14017000% 
#14063000% 
14253000 


START 
0097 *14202000* 


02865000 
13361000 


14138000 
14254050 


05090000 
13362000 


14439000 
14269000 


06068500 4064250008 44058000 44477000 4444780008 14481200 #14493000% 14506000 


14610000 


05233000 05234000 09134100 09134200 09405500 09447030 09647040 13286000 
13768000 43769000 44448000 16443000 


14140000 441414000 144156000 14160000 44162000 44170000 44199000 44202000 
14272000 44379000 44384000 44504000 445214000 


START 


0099 *14272000* 


*14373000* 


START 


0098 #14254050* 


14259090 #14269000« 


START 


0100 *14384000* 


#34503000* 


START 


0103 *16475000* 


4164770004 16485000 


STARTINTRSC 
0069 *09024000* 


START1 


0099 #14272000*% 


14325000 


START2 


9099 #14273000* 


*14376000* 


STD 


0003 *01673000¥" 


08090000 42038000 


STEP] 


0003 *05003000% 


#05003000% 
06069000 


051408000 
06073000 


06322000 
07600600 
07994000 
13404000 


06445000 
07604440 
08029000 
13753000 


14364000 #14375000« 


13230000 


05274000 
06085000 
06421000 
07604440 
06178000 
43754000 


15104000 


05275000 
06094000 
07048000 
07645000 
09252000 
13756000 


15233045 


05276000 
06406100 
07041000 
07662000 
12007000 
13766000 


15276410 


05277000 
06199000 
07437000 
07664000 
120140000 
13774000 


15335000 


05278000 
06347000 
07505000 
07666500 
12043000 
14126000 


05344500 
06318000 
07552000 
07673000 
13351000 
14220000 


05344520 
06349000 
07567000 
07727070 
13392000 
14223000 


05344610 
06320000 
07597500 
07767000 
13395000 
14259110 


05344670 
06321000 
07600100 
07768100 
13402000 
14268000 


14338000 
15253000 
16208000 
16368000 
STEPIT 
0003 *05002000* 
05344690 
06147000 
06345000 
07485000 
07584000 
081455000 
12039000 
14166000 
45274000 
STEPV 
Q003 *01255000* 
08103000 
STLABID 
0003 *01178000* 
14403000 
STLB 
0003 *01471000* 
*15273000* 
STMT 
0003 «03027000* 
05108000 
09275000 
STMTSTART 


0065 #08010000* 


14344000 
45260000 
16217000 
16372000 


06045000 
06166000 
06410000 
07487000 
07604400 
08161000 
12045000 
14193000 
15276070 


08182000 


14447000 


070414000 
14167000 


14345000 
15276050 
16220000 
16384000 


06035000 
06468000 
06441000 
0749 3000 
07727020 
08475000 
12054000 
14259000 
15306000 


16000300 


07485000 
14488000 


14356000 
15276160 
16252000 
16406000 


06049000 
06472000 
064146000 
07495000 
07727090 
083192000 
43327000 
14259070 
15376800 


16253000 


07495000 


14515000 


14393000 
15300000 
16253000 
16434000 


06402000 
06174000 
06447000 
Q7505000 
07996000 
98231000 
13406000 
14259140 
16430000 


16437000 


07574000 


14396000 
15342000 
16316000 
16435000 


06104700 
06177000 
06422000 
07536500 
08034000 
42013000 
13409000 
44344000 
146176000 


16443000 


07577000 


081457000 #08 169000 40084910008 08193000 *08206000* 08221000 


STOP 
0100 #14384000* 


14484000 *14491000+ 


14467000 
19125000 
16349000 


06106200 
06184000 
06423000 
07518000 
08039000 
12047000 
13753100 
14359000 
16234000 


16481000 


159090000 
16160000 
16324000 


06111000 


06204000 
07010000 
07552000 
08120000 
12025000 
13757000 
14403000 
16376000 


45113000 
16197000 
16326000 


06117000 


06208000 
07072000 
07569000 
08131000 
12930000 
13758000 
14472000 
16408000 


07585400 «07741000* 07774000 


15233000 
16206000 
16340000 


06140000 


06303000 
07400000 
07573000 
08335000 
12034000 
13761100 
15098000 
16412000 


08163000 


19233006 
16207000 
16367000 


06143000 
06334000 
07407000 
07589000 
08142000 
12036000 
13772000 
13233012 
16494000 


08201000 


STOPDEF INE 
0003 *01597000* 


02893000 #02911000 #4029 26000 4407017000 410263300 4640281000 ww12141000 #41 3327000 mw 1443000044141 92000%%14258000« 
¥14259060%414259 400 WH 44259130 4w14402000%%14403000* 


STOPENTRY 
0003 *01594000* 


13354900 14188000 #%14 198000 ww 14205000 ww 1425 1000 414255000 we 14209000 #41431 8000 HH 14321000 w 414402000441 4404000" 


STOPGSP 
0003 *01694000* 


13343000 13345000 444164500 #414 166000 #14 188000 mH 44 198000 4414205000 HH 4425 100044 44255000 441426900044 1434 85008 
#143195004414402000%%14404000% 


STOPPER 
0003 #03068000* 


STOPPER 
0003 *13217000* 


413223000 13291000 


STOPPER 
0003 *13734000* 


13745000 


STORE 
0065 *08063000* 


08070000 08130000 08135000 08138000 08236000 


STORE 
0066 #08084000* 


08089000 
STOREFIX 
0066 *#08091000# 


#08093000* 08157000 08171000 


STREAMERR 


0094 *14017000* 


14021000 14137000 


STREAMSTMT 
0003 #03040000* 


07011000 


STREAMTQG 
0003 #01417000*" 


02692000 


14324000 


STREAMYV 
0003 #04297000* 


07745000 


STREAMWORDS 
0003 *05230000* 


03236000 


STRMPROCSTMT 
0003 #*03030000* 


06160000 *07426000* 


STRNGCON 
0003 #01211000* 


02705400 


STRNGXT 
0021 #02638000* 


*#02701000* 


STRPROCIDO 
0003 *01189000* 


07431000 


STUFF 
0003 *01561600* 


13771000 


02692500 
#12110100012127100» 


44361000 


07768400 


13774000 


07075000 


14281000 


14415400 


04279500 
12127100 
44377000 


14278000 


13773000 


07446000 


07604410 


#16004000" 16430000 


04284000 


14385000 ~14463000* 


14324000 


07737000 


07665500 


16229000 


04283000 04284500 
43343000 «13771000 %443773000% 44077000 


14460000 


07668000 


08032000 


16435000 


05344400 


19210000 


16495000 


07041000 *07661000 4076760004 12119100 


14082000 #14280000% 14298000 


16384000 


14338500 


05350300 09281900 13677500 


STUFFBIT 
0003 *01001140* 


01001440 02516000 05350400 13677400 


STUFFF 
0003 #05199000* 


05203000 


STUFF TOG 
0003 *01001440* 


05350100 13677100 


STl 
0007 *02090000* 


02090500 024320000 02424500 02426000 


ST2 
0007 *02090000* 


02090500 02421000 02421500 


Sub 
0003 *01674000* 


06016000 08030000 08044000 08234000 32015000 16329000 


SUBC 
0003 #13213000* 


SUBDEC 
0094 *14014000* 


14019000 *44163000* 
SUBHAND 
0003 *03011000* 


06156000 #06194000% 06209000 07733000 


SUBID 


0003 ¥01185000* 
06198000 14164000 


SUBLEVEL 
0003 ¥01402000*% 


O5117000 144770004 14477000 *14492000" 


SUBOP 
0003 *01556500* 


05344570 05344710 


SUBV 
0003 *01288000* 


SUPERFRMTID 
0003 #014183000* 


05221000 05224000 


SVARMONFILE 
0003 *01529000*« 


SW 
0008 *02191250* 


02194500 

Sw 
0017 *02326000*% 
02328000 


SWITCHDEC 
0094 *14015000* 


44020000 *14200000*% 14252000 


SWITCHIO 
0003 ~01186000* 


07507000 14207000 


SWITCHIT 
0016 *02321000* 


02359000 
02470000 
02522000 


SWITCHV 
0003 *01292000* 


SWITMONFILE 
0003 *01539000* 


SYLLABLE 
0003 *03028000% 


SYLLABLE 
0003 #03019000* 


SYLLABLE 
0003 *04270000* 


04271000 


SYMBOL 
0003 *02183500* 


02183750 


T 
0003 *01717900* 


T 
0003 *02057000* 


02058000 


02377000 02388000 
02472000 02474000 
02531000 02567000 
04274000 04311000 
02485250 


02059000 


02393000 
02480000 
02600000 


04500000 


023950009 
02490000 


02397000 
02496000 


02402000 
02306000 


02445000 
02508000 


024213100 
02941000 


02425000 
02516000 


02435000 
02520000 


T 


0003 


0003 


0003 


0003 


0018 


0018 


0047 


0041 


0025 


*01564000* 
02057000 


02827000 


02249000 


02323000 #02655000« 
02722000 w02724000% 02726000 #02755000« 
@©2842000 +02848000*% 02850000 
02886000 


#0 2878000440 2882000" 02882000 


02981500 
08059000 
14163500 


*03050000* 


*04311000* 


04311030 


*#12101000* 
12108000 


*02446000* 


02446000 
03053000 


#02441000* 
02441000 


#02323000¥ 


#02249000« 


05068000 


16067000 


04342000 


12117000 


02448000 
0305400, 


02443000 


16364000 


04348000 


02449000 
04040000 


02444000 


05096000 «#05233000+ 
08061000 408069000« 08070000 409282600 4409388000 


03024000 
04044000 


*02251000 4802257000 44022590008 02259000 


#02981500* 


02658000 
02798000 
028541000 
02896000 
05234000 


03025000 
04029000 


02260000 


*02666000#«02692000% 02695000 *02701000* 


#02813000% 
*#02865000~" 
#0 2896000" 
05236000 


03036000 
04030000 


02823000 
02875000 
02896000 
05403000 
09388000 


03037000 
04145000 


¥02823000* 02824000 


02876000 *02877000+% 


02900000 02901000 

054414000 *08057000« 
09389000 09393020 

03042000 03047000 

04116000 


02705100 
02826000 
02877010 
02930000 
08057000 
12004000 


03047100 


*02721000« 
*02826000* 
#0 2877020" 
02957500 
08058000 
13199000 


03050000 


0022 


0035 


0043 


0042 


0067 


0076 


0077 


0084 


0086 


*02982500* 


*02957500* 


02983000 


02983500 


#02960500##02961000% 02961000 


#05068000* 
05074000 


*05414000* 
705425400 


*03401000* 
*05402000* 


#08999075% 
08999075 


#09364000*% 
09364000 


#09393020* 


#12004000* 


*12044000% 


#13199000*" 
*#13200000* 


05081000 


05426000 


05402400 


08999100 


09369000 


12047900 


13201000 


05086000 


02984000 


02984500 


02961500 #02964000" 02966500 


05428000 #05430500« 05434000 


05403000 


13202000 


03404000 


13203000 


05405000 


13204000 


035409000 *£05409300% 05409300 2054094004 05409400 


43205000 


13206000 


13207000 


02409500 


14168000 


16394000 


402920000 *%02924000% 02997000 


0096 #14163500* 
#€14166500% 
1 
0105 *16067000% 
*16070000% 
T 
0142 *#16364000* 
16393000 
TABLE 
0003 *02635000* 
07604020 
14516000 
TAKE 
0003 ~01717700* 
02724000 
07042000 
19263440 
13364000 
14320000 
144574200 
16172000 
TAKEFRST 
0003 #054880008 
#051489000* 
TALL 
0102 #15072000* 
#15077000« 
15106 100 
15255000 
15330000 
TALLYV 
0003 *01239000*% 
16319000 


07748000 
15276010 


02725000 #03053000*#05005000%#05006000* 


07090000 
13226000 
13365000 
14333300 
14470000 
16254000 


05222000 


13080000 
15107000 
15267000 
15 333000 


16341000 


07754000 
16482300 


07098000 
43229000 
13408000 
44352000 
14483200 
16260000 


06497000 


#15083000« 


151419200 
145276020 
15 344000 


05002000 
07768430 


07412000 
13249000 
13677200 
14388400 
14483400 
16449000 


07435000 


15083000 
15449300 
45276060 
15344100 


05003000 
19263400 


07441000 
13255000 
13767000 
14441200 
15376300 


45085000 
15124000 
18276080 
45344200 


05221000 
40282000 


05124000 
07527000 
13257000 
14984000 
144145200 
16070000 


145086000 
19128400 
195276090 
15351000 


09224000 
12020000 


02131000 
07329000 
13279000 
19088000 
14425000 
16089000 


15092000 
15233009 
45276210 
15354200 


07066000 
12142000 


05189000 
07539000 
13284000 


14118000 
14430000 
16138000 


15094000 
15233010 
145290000 
15352000 


073972410 
13753 00 


06082000 
07601000 
13286000 


14168000 
14438000 
16139000 


15097000 
1523301434 
15295400 
15353000 


074043000 
13761400 


06104300 
09433900 
13348000 
44259150 
14446000 
16163000 


15492000 
15233014 
45302000 
15 376 300 


07600950 
14063000 


06191000 
09434100 
13362000 
14349000 
14448000 
19166000 


19105000 
19233018 
13303000 


TAN 
0103 *16014000* 


16213000 


TAPE 
0003 *01561000* 


02201750 02452000 


TAPE 
0003 *02188000* 


02188000 02468500 


TAPELAST 
0009 #02210000* 


02210750 #02219250« 


TBUFF 
0003 *01561056* 


02201750 02202000 


TBl 
0003 *01457000% 


*07506000**07507000* 07516200 


TBl 
0097 *14204000*" 


*14206000* 


TCLASS 
O111 *16314000* 


*16335000*" 46347000 


TCOUNT 
0003 *01566000* 


02454000 


02202750 


02456000 


49324000 


02457000 


02457000 


09282000 


07025030 


07518000 *10243000%*10260000" 10275000 14204000 


16328000 


16334000 


02251000 02252000 «02758000 #402790000% 02796000 


TEDOC 


46341000 «16348000» 46349000 46350000 


02798000 


02803000 #02810000%+02847000" 


16352000 


0003 #*13683000* 
13686000 13703000 
TEMPL 
0028 «04166000 
#04172000*% 04175000 


TEMP 
Q003 *02001860* 


02001866 02001868 


TEMP2 
0003 ~02001860* 


TEN 
0003 #*01340000* 


02796000 05799000 


TEST 
0065 ~08041000* 


08051000 08131000 
TESTCODE 
0109 #16192000* 
16211000 16212500 


TESTLEV 
0100 *14384100* 


14387000 44389000 


TESTVOID 
0009 *02210500* 


02232500 *02234000*% 


THENBRANCH 
0050 *06295000* 


*06297000* 06301000 


13706000 


04484500 


02001890 


02803000 


08220000 


14441300 


13732000 


04186000 


02826000 


14415300 


13734000 


02833000 


14451000 


02835000 


14464400 


02836000 


02840000 


09041000 


THENV 
0003 


THERE 
0003 


THI 
9003 


THIRD 
0051 


TIME’ 
0003 


TL 
0027 


TL 
0057 


TL 
0087 


TLCR 
0003 


TLOR 


#01256000* 
06411000 


#01737350* 
01737450 


*#01689000* 
4022500008 


*06314000" 
#06326000* 


#01300000* 
01828000 


*04118000* 
*04119000* 


*07483000* 
¥07485000* 


#13221000*% 
#13258000* 


*01330000*% 
#02202050* 


16217000 


02255000 


06327000 


09385000 


04124000 


07487000 


13277000 


02202060 


02256000 


06328000 


*16495200* 


02202070 


02257000 02785000 
06332000 
02224500 *02456000*% 


02797000 


02799000 


02800000 


0009 *02202750* 
02203500 02204000 


TLU 
0003 *01689000* 


#02250000* 02255000 02256000 02785000 02796000 


TOGGLEV 
0003 #01245000* 


TOLOC 
0069 *09005000* 


09006000 


TOP 
0044 ~05439000* 


05445000 *05452000* 


TOTALNO 
0003 #01000860* 


02192000 #02192500+% 02493000 #02193000+402582000+ 


TOV 
0003 #03257000* 


07505000 07552000 46252000 16437000 


TOWARDS 
0003 #04116000# 


04119500 041420100 04420200 043420500 


TOWARDS 
0003 *03037000* 


TRB 
0003 #01682000* 


04318000 


02797000 


02799000 


02800000 


TRNSFER 
0003 *01251000* 


16379000 


TRP 
0103 *16019000* 


16383000 


TRUTHV 
0003 *01208000* 


TRW 
0101 #14419000* 


TSSINTYPE 
0003 *01561430* 


09430060 


TSSTOG 
0077 #09393020* 


#09414026* 09430050 


TSUBLEVEL 
0094 714029000* 


*14477000* 14492000 


TURNONSTOPLIGHT 
0003 *02011000* 


02202070 02244500 
TWXA 
0003 #01561700* 


05350180 05350300 
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13677400 


02235750 


13677500 


02369000 
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TY 


0003 


PE 
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0003 
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TY 
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PE 
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0003 
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TY 


Ti 


0003 


PEV 
0096 


0003 


#03055000* 


#05247000" 
05248000 


#13316000* 
13333500 


#13716000* 
13729000 


*06295000* 
*06299000* 


*16476000* 
16477000 


#01611000* 


05249000 


13338000 


05250000 


13342000 
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#03071000* 


#14163500* 
*#14164000* 


#01693000* 
02001860 


14165000 


04278000 


14467000 


04502000 


05049000 


96062000 


06484000 


06196000 


14163500 444284000 4414284000% 14285000 


07427000 


07562000 


08373000 «13381000% 


Ti 


Tl 


Tl 


Th 


Ti 


Tl 


Th 


Ti 


T1 


0003 


0003 
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0034 


0035 


0046 


0048 
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0056 


13383000 


#02001860* 
02001874 


13684000" 
13685000 


*04502000* 
w04550000* 


#042780008 
#04280500* 


*05049000* 


43389000 13684000 


02001876 


13707000 43741000 


04551000 


04281000 04283500 #04284000« 04284500 


05088000 «05094000«% 05094000 


*06062000* 


«06072000 
*#06108000" 


*06184000* 
#061485000% 


*06196000+* 
#06197000* 


*07427000* 
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13734000 


04285000 
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Tl 


Ti 


T1 


T2 


Te 


T2 


T2 


T2 


T2 


T2 


0065 
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0003 


0003 
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0048 


*08173000* 


#08179000*408493000« 


*07562000* 
#07566000* 


¥15073000*8 


15095000 
15276150 
15376700 


*01693000* 
02001860 


¥02001860* 
02001874 


*13684000* 
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*06184000* 


07572000 
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15276210 
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15098000 
15304000 
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13698000 
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07575000 


15100000 
15308000 


06062000 


05098000 


#06185000*% 06189000 %06490000# 06390000 


08204000 


#07577000« 


15112000 
15341000 


06184000 


06191000 


08205000 


07579000 


15124000 


45370000 *15376300%815376500% 15376500 


07562000 


08206000 08207000 08225000 
07983000 07585100 
19233005 145233013 15233048 15276060 15276070 


15376600 *12376600* 


07657500 08173000 13684000 15074000 


Te 


Te 


Te 


T2 


T3 


T3 


T3 


T4 


T4 


0046 


0065 


0063 


0061 


0102 


0003 


0035 


0065 


0035 


0065 


*06062000* 


#06072000*% 06074000 06075000 06079000 *06080000*% 06080000 


#06090000* 06092000 +06093000% 06099400 


#08173000% 
#08198000* 08208000 


¥07657500* 
07663000 07668500 07669000 07674500 


#07562000* 
*07583000* 07583000 «07585000 07586000 


#15074000+* 


45100000 15112000 154324000 15233005 
15370000 153763008 15376400 


*#13664000* 
13689000 1369709000 13700000 13710000 


#09049000* 
*05091000*% 05092000 +«05093000* 05094000 


*08173000* 
*08199000* 08209000 


*05049000* 
¥05095000" 05096000 


¥08173000* 


15233013 45233018 


43732000 13734000 
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06081000 #06084000% 06087000 
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15276070 


15276450 


15276210 


06089000 


12308000 


06090000 


19341000 


*08200000* 08210000 


0003 *05411100* 


0003 *05437000* 
05440000 05441000 05443000 05446000 


UNHOOK 
0003 #01626000* 


13305300 *13353000* 


UNKNOWNIO 
0003 *01177000* 


06151000 


UNTILV 
0003 ~01226000* 


07048000 07485000 08443000 08428000 


UPPER 
0003 *05299000* 


05304000 


USEROPINX 
0003 *01001170# 


02335000 02339000 02353000 02357000 


USESWITCH 
0009 *02210750« 


02212000 


USETHESWITCH 
0009 *02210250« 


*02211750* 02228;00 02228450 02229500 


05454000 


08484000 


02600000 


02234500 


05457000 


09444022 


02232250 


05456000 


02234000 


02234600 


02235250 


0065 *08010000* 
08015000 


VAL 
0003 *01741200* 


01741300 


VALUEV 
0003 *01258000* 


14341000 


VARTABLE 
0003 *03038000* 


06140000 
15377000 


VBIT 
0054 *07039000* 


*07043000* 


vo 
0003 *01150000* 


07043000 


VOIDBIT 
0003 *01001150* 


01001450 


VOTOCR 
0003 #01785000* 


02231750 


VOIDING 
0003 *01001450# 


02231500 


VOIDPLACE 
0003 #01785000* 


#02232000* 


08078000 


06164000 


07045000 


13203000 


02231500 


02232000 


02410500 


08099000 08181000 08188000 *08225000««08227000» 


07050000 07058000 07073000 


02415000 
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02412000 
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02411000 
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07739000 
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VP 
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02410000 
E 


*#01001460*% 
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01004460 
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*01785000* 
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*01590000* 


#13203000#413341000« 


#01756000" 
01761000 


¥08010000+ 
#98054000% 


#02054000#8 
02054000 


02411000 


02232500 


02228400 


02228150 


02485500 


01780000 


02442000 


02232500 


02233000 


02487000 


13373000 


02485000 


02490000 


02486000 


02487000 


02233500 402233500% 02485500 «02485500% 02486000 


#1{6000400% 


08077000 «08176000*% 08198000 *0g208000* 08211000 


02055000 


08224000 408228000" 


0003 *01717700* 


0039 #05309000* 
03311000 05315000 05325040 


0092 #13673100* 
13673100 13673250 
wO 
0069 #*09005000* 
09005000 09006000 


WHAT 
0078 *09393080* 


#09393170% 09393,80 09393490 


WHATISIT 
0046 #02362000* 


02364000 02365000 02379000 02398000 02475000 025437000 0268000 #02578000" 


WHILESTMT 
0003 «07490000 


07496000 07757000 


WHILEV 
0003 *01224000* 


08113000 08133000 08139000 


WHO 
0078 «09393080* 


#09393110* 09393330 09393170 *£09393190% 09393200 


WHOLE 
0056 #07427000* 


#07430000* 07432000 07438000 07439000 #07441000* 07444000 07442000 07444000 


WITHY 


0003 *#01259000*" 


wOP 


0003 *01371000" 


02534000 


WORD 


0003 *04142000* 


04447000 


WORD 


0003 ~04270000*% 


04273000 


WORD 


0003 *05008000+ 


05009000 


WORDCOUNT 
0088 #13301000* 


wi3302000* 


WRITEAX 
0054 *07038100« 


07086300 


WRIA TELINE 
0003 «02181000% 


02483000 
05325490 


WRITEQUT 
0046 *06064000* 


06120000 


WRITEPRT 


02536000 04280500 
04149000 

04277500 04293000 
13307000 13310000 
024195000 02495750 
06123000 07025020 
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04344000 
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02244200 
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04500000 
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09387000 09389500 
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05097500 
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05325500 
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05031000 
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0003 *02016000* 


02020000 


0003 *13591000* 


13593000 
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05072000 
05298000 


*09393270* 
#99393400% 


XBIT 


0016 «023210008 


02327000 


XCH 


0003 *01675000* 


04507000 


XIT 


0003 *01676000* 


02210500 


XIT 


0009 *02210500* 


02213250 


053761400 


05044000 


02194000 


05074000 
05299000 


093934140 


02335000 


06203000 


05325080 


02214750 


05405000 
05307000 


09393420 


02339000 


08065000 


13743000 
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05113000 


09393430 


02353000 


08423000 


051423000 


02357000 


08228000 


05128000 


12054000 


05199000 
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05207000 


15309000 


05246000 


05247000 


03271000 


XIT 
0040 *05325080+ 


05325340 05325350 05325370 05325380 05325390 05325400 05325410 05325430 


XITR 
0003 *01430000* 


XMAS 
0077 *09393050* 


09393110 09393130 09393440 09393370 09393480 409393180 04393190 09393200 


XMODE 
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02328000 «02332000 402367000 400238 3000 4n02385000m 02408000 02425500 «02478000» 02483000 02525000 02577000 


XMODEO 
0017 *¥02325000* 


02326000 *02329000« 


XMODEL 
0017 *02325000* 


02326000 *02333000* 


XMODE2 
0017 *02325000* 


02326000 #02337000+* 


XMODE3 
0017 *02325000+ 


02326000 *02344000« 


XMODE4 
0017 #02325000*" 


02326000 #02355000* 


0077 #09393240* 
09393290 409393330" 09393350 09393400 409393430" 049393440 04393450 


0003 *01490000* 
06063500 43746000 4314441200 44444452004 14457000 44506000 #14506000 
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